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Last month Acorn Computers announced an annual loss of £3.3M, compared with a profit the 
previous year. It is always bad news for computer users when the company who produced their 
machine hits hard times. In the short term it may mean that Acorn will be considering how to 
further reduce their overheads. And when this happens, both current support, and future 
projects become threatened. It is clearly in the interests of users that neither of these activities 
are badly affected. Acorn are known to be working on a new range of computers which make 
even better use of ARM technology than does the Archimedes. We fervently hope that this work 
wifi not be affected. 

Of course it all comes down to volume of sales, and Acorn will not improve their financial 
position until they can sell large quantities of their new machines; and demand will not truly 
ramp up until there is perceived to be a wide range of software for the machine. In some 
respects it is the sheer excellence of the machine that has worked against Acorn here. Many 
software houses, awed by the vast potential offered by the Archimedes, have opted to create 
products which make full use of this potential, and which, as a consequence, involve a 
considerable development time. Not until these products reach the markatptace will the 
Archimedes achieve the software support which it warrants, and which cautious wouid-be 
purchasers are waiting for. 


i 
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This month's magazine disc is again packed full of goodies. In addition to all the programs from 
the magazine, it contains part two of Acorn's stunning 3D animation and an upgraded version of 
the RS232 fix, together with sample screens from Droom which is reviewed in this issue. 


We hope to see you on the 
RISC User stand at the 
Micro User Show (May 13 to 15). 





RISC CHIPS SECOND SOURCED 

Acorn Computers has just announced that the ARM 
chip set at the heart of the Archimedes is also to be made 
in Japan by the electronics giant Sanyo. The ARM chip 
set is already manufactured by VLSI Technology of 
California. If experience with other new chips is anything 
to go by, then this 'second sourcing’ will very rapidly lead 
to price reductions in the chip cost, and subsequently to 
the adoption of the ARM processor for other computers. 
Acorn particularly want to see the chip set being used for 
control applications, such as production line controllers. 

NEW PC-EMULATOR 

Acorn has released yet another version of the PC- 
Emulator for the Archimedes series. Version 1.20 claims 
to be faster than the older 1.09 release, and will also run 
additional software. According to Acorn, the new 
emulator, which uses MS-DOS 3.21, will run such 
packages as Symphony, dBase III, SideKick and 
Supercalc. 

Users can upgrade to the new version by returning 
their original discs with a cheque for £15 to Customer 
Services, Acorn Computers, Fulbourn Road, Cherry 
Hinton, Cambridge CB1 4JN. Alternatively, RISC User 
and BEEBUG members can exchange their discs for just 
£12, provided they quote their membership number, by 
sending a cheque and the old discs to BEEBUG at the 
address on the inside front cover. 

SHAREWARE 

Contex Computing is starting a scheme to market 
shareware to run under the PC-Emulator on the 
Archimedes. Shareware is a system by which quality 
software is distributed for very little cost, and can be freely 
passed on to other users. The documentation for 
shareware is normally supplied in the form of a text file 
along with the program, but sometimes full information 
can be obtained at a nominal cost. 

Most existing PC shareware is on 5.25 inch discs, 
and not all of it will run using the Archimedes PC- 
Emulator. Contex Computing is aiming to collect and test 
shareware, and then distribute it on 3.5 inch Archimedes 
discs The first disc available is a full-feature spreadsheet 


at £7.50, with other titles promised in the near future. 
Contex Computing can be reached at 15 Woodlands 
Close, Cople, Bedford MK44 3UE, or by ringing (02303) 
347. 

ARCHIMEDES 440 

Despite Acorn’s previously announced plans, the 
Archimedes 440 is still in very short supply. Acorn now 
says that existing orders from dealers will be supplied in 
June, while anybody placing a new order will have to wait 
until September for delivery. There is also no definite date 
for the release of the Archimedes 410, but Acorn has 
confirmed that this machine will be released, probably 
later this year. 

ARCHIMEDES PIPEDREAM 

Pipedream, the word processor - cum - spreadsheet - 
cum - database from Colton software, is soon to be 
released for the Archimedes. Pipedream is currently 
supplied as standard on Cambridge Computer's Z88 
portable computer, and is also available for the IBM PC 
and compatibles, or in the form of View Professional for 
earlier BBC micros. 


The Archimedes version of Pipedream runs under the 
WIMP manager using pull-down menus, and includes 
features not available on the other versions, such as 
macros and Lotus file compatibility. 

Archimedes Pipedream will be available from the 
middle of May at an inclusive price of £113.85. More 
details can be obtained from Robert Macmillan, Broadway 
House, 149-151 St Neots Road. Hardwick, Cambridge 
CB3 7QJ, or by ringing (0954) 211472. 


GRAPHICS STUDIO 


We have now received from Micro Studio a final 
version of the Archimedes graphics library, which we 
featured in last month's news. As well as over 100 
pictures in the form of sprite files, the disc also contains 
some full-screen monochrome and colour pictures to load 


directly into Artisan. 
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FAST DIRECTORY COPIER 

by Nic Van Someren 


With this smart utility, single drive users can make fast copies of complete directories and 
their nested contents with oniy a couple of disc swaps. It also offers a speed gain for dual 

drive users. 


One of the snags of using an Arc with a 
single drive is the interminable disc swapping 
necessary to make copies of whole directories. 
This utility solves the problem, and permits the 
copying of complete directories and their 
nested contents with only a couple of disc 
swaps. It also allows you to effectively backup 
a disc onto one formatted to a different size, 
with the advantage that the contents of the 
destination disc are not lost during the 
operation (as they are using ‘BACKUP). And if 
you possess dual drives, the utility will still 
vastly speed up multiple copying operations. 


To get the 
program running, 
just type it in, and 
save it away. 
When it is run it 
will ask for a 
source directory. If 
you wish to copy 
using a single 
drive, you should 
give the current 
drive number 
using a colon as 
normal (e,g. use 
:O.Source.subdfr 
etc.), it will then ask for a destination directory. 
If you give the same drive number, you will be 
prompted to swap discs at the appropriate time 
(e.g, :Q.Dest), If drive numbers are not given, 
the program will copy files back onto the source 
disc, while if two different drive numbers are 
given, the program will copy between the drives 
without prompting. The usual wildcards and 
other filing system symbols and abbreviations 
are all accepted, and the program will respond 
to star commands at either of the filename 
prompts. 

The program works by making a map of the 
directories to be copied, and laying this on the 
second disc in a single operation. It then fills 
the machine's available memory with as many 


files as will fit, and saves these out in a single 
operation on the destination disc. This is then 
repeated until all fifes are copied across, 

PROGRAM NOTES 

PROCreaddir: This reads in all the 
catalogue information for a directory and then 
calls itself recursively for all the subdirectories, 
PROCcreatedir: This goes through the 
directory structure that has been read in and 
makes sure there Is a similar directory structure 
at the destination. 

PROCreadin: This reads in as much of a 
file as there is space for, recursively scanning 
the directory tree until there is not enough free 
memory to read any more. It then caffs 
PROCbashout 

PROCbashout: This is a non-recursive 
routine to write to the destination the files that 
have been read in by PROCreadin 

FNgetzerostrtng: This returns a CR- 
terminated string for the null-terminated OS 
string pointed to by its parameter. 

PROCwaitondisk: This prompts for the 
required disc, and waits for the space bar to be 
pressed, but only if the flag is set to say the 
discs are different but in the same drive. 

10 REM >DirCopy4 

20 REM Program Directory Copier 

30 REM Version A 0.4 

40 REM Author Nic Van Someren 

SO REM RISC User May 1986 

60 REM Program Subject to Copyright 

70 : 

80 PRINT:COLOUR 135:C0L0UR 0 
90 PRINT"RISC User Directory Copier 
100 COLOUR 123:COLOUR 7 
110 REPEAT 

120 INPUT 1 "Source Directory? "S$ 

130 IF S$="" S$= n :0. 

140 IF LEFTS{S$,l)=”*" OSCLI S$ 

150 UNTIL LEFTS{S$,!)<>"*" 

160 REPEAT 

170 INPUT"Destination Directory? 

180 IF D$= n ,T D$= T ": 0 , $ u 
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FAST DIRECTORY COPIER 


190 IF LEFTS(D$,1)="*" OSCLI D$ 

200 UNTIL LEFTS{DS,1)<>"*" 

210 IF LEFTS(S$,INSTR(S$,".")-1)=LEFT$ 
(D$,INSTR(D$,AND XNSTR(LEFTS(SS, 
in$tr (S$, B .") -1), ":") <>0 samedisk^TRUE 
ELSE samedisk%-FALSE 
220 DIM space% -1 
230 spaee%=HlMEM-space%-&200G 
240 DIM workbuffer% spaced 
250 canuse%=workbuffer% 

260 PRQCwaitondiskf"Source") 

270 FRlNT n Reading directory tree" 

280 PROCreaddir(S$,0} 

290 FROCwaitondisk("Destination") 

300 PROCcreatedir(D$,ttorkbuffer%} 

310 FROCwaitondisk("Source"} 

320 workstart%=cannse% 

330 workend%=workbuffe r%+space% 

340 filecount%=0 

350 FROCreadin(SS,workbuffer%) 

360 PROCbashout 
370 END 
380 i 

390 DEFFRGCreaddir(dir $,parent %) 

400 LOCAL ourspace%,offset%,entry!,ent 
ryoff4 

410 ourspace%=canuse% 

420 ourspace4I4=parent% 

430 canuse%+=8 
440 offset%=0 
450 REPEAT 

460 SYS "OS^GBPB", 10,dir$,canuse%,1, of 
fset% # spaced,TO ,,,read4,offset% 

470 camise%+=32 

480 UNTIL offsetl=-l OR read%=G 
490 IF read%=0 canuse%-=32 
500 !ourspace4=(canuse%-ourspace%-4)DI 
V 32 

510 IF !ourspace%<>0 then 

520 FOR entry%=0 TO !ourspace%-l 

530 entryoff4-ourspace%+8+32*entry% 

540 IF entryoff% U10=2 then 
550 entryoff%!&lO=canu$e% 

560 PROCreaddir (dir$+" - "+FNgetserostri 
ng(entryoff%+Sl4},ourspace%) 

570 ELSE 

580 entryoff43£10=0 
590 ENDIF 
600 NEXT 
610 ENDIF 
620 ENDPROC 


630 t 

640 DEFFNgetzerostring (x%) 

650 LOCAL y$ 

660 WHILE ?x%<>0 
670 yS+~CHR$?x% 

680 xl+=l 
690 ENDWHILE 
700 =y$ 

710 : 

720 DEFPROCcreatedir(dir$,data%) 

730 PRINT "Checking directory ";dir$ 
740 LOCAL entry%,entryoff% 

750 SYS "OSFile",8,dirS 
760 IF !data%<>0 THEN 
770 FOR entry%=0 TO !data%-l 
780 entryoff%=data%+8+32*entry% 

790 name$=dir$+"."+FNgetzerostring(ent 
ryoff%+&14) 

800 IF entryoff%!£10=0 THEN 
810 ELSE 

820 PROCcreatedir(nameS,entryof f I}*10) 

830 ENDIF 

840 NEXT 

850 ENDIF 

860 ENDPROC 

870 : 

880 DEFPROCwaitondisk(A$} 

890 IF samedisk% THEN 
900 SYS n QS_Byte",15,1 
910 PRINT"Insert ",A$;" disc, and pres 
s <Space>" 

920 REPEAT UNTIL GET=32 
930 ENDIF 
940 ENDPROC 
950 : 

960 DEFPROCreadin(dir$,data%) 

970 LOCAL entryentryoff%,name? 

980 IF !data%<>0 THEN 
990 FOR entry4=Q TO ]data%-I 
1000 entryoff4=data%+8+32 !fc entry% 

1010 nameS=dir$+". 11 tFNget zerostring (ent 
ryoff%+&14} 

1020 IF entryoff%!£10=0 THEN 

1030 savename$~D$+MlD$(name?,(LEN S$)+l 

) 

1040 newthrough%-Q 
1050 REPEAT 

1060 througftfile%=newthrough% 

1070 IF workend%-canuse%<SlOO FROCbasho 
ut:FROCwaitondisk("Source") 

n potK* It 
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in this follow up to last month's article, Mark Davis introduces hidden line removal, and 
also translates the program into assembly code for extra speed. 


Having covered in the previous article the 
creation and display of three-dimensional wire 
frame objects in Basic, I shall take two further 
steps this month. The first is to make use of 
ARM assembly code to increase the speed at 
which the shapes can be drawn; the second is 
to employ some form of hidden line removal to 
achieve greater realism. 

For this, a new data 
structure is necessary in 
the program, the pur¬ 
pose of which is to 
handle surfaces rather 

than just the connec¬ 
tion of lines. 

As in the last prog¬ 
ram, the first set of 
DATA statements pro¬ 
vide the co-ordinates 
used in the shape. But 
the second set arrang-, 
ed in groups of four, 
give the co-ordinates 
used to define the 
surfaces (each surface 
is defined by four points). To define a three- 
sided surface, the fourth point should equal the 
third. This can be seen in listing 1, where both 
three and four sided surfaces are used. 

The hidden line removal calculations are 
carried out by means of vector mathematics. 
(For a full explanation of this see: J.McGregor 
& A.Watt, Advanced Programming Techniques 
for the BBC Micro\ or M,Morris, Computer 
Graphics and CAD Fundamentals). Essentially, 
these calculations check whether the normal of 
a surface (t.e. a line perpendicular to the 
surface) is at an angle of greater than 90 
degrees to the viewpoint. If so, the surface 
cannot be seen. 

To use the program type in listing 1 and 
save it. Once the program is run, you will be 
presented with a house shape that will roll 
about on all three axes. On pressing the Space 
bar, the rotation will stop, and the view of the 
house will then be controlled by the mouse, as 


in last months program. However, this time 
hidden lines are not displayed, giving the 
appearance of a solid object, 

HOW THE PROGRAM WORKS 

The program can be broken down into several 

stages:- 

Lines 240-300 set up 

the coordinate and 
surface data, and use 
the variables 'coords’ 
and 'surfs' (set up in line 
90} as loop counters. 
Lines 400-450 (PROC- 

rotate) are used to 
rotate the shape, calling 
the machine code with 
R0-R2 containing the 
rotational parameters 
(xrot, yrot T zrot). 

Lines 470-2090 set up 

the machine code in 
memory. This can be 
explained as follows: 
Lines 570-1060 rotate 
each point around the 
origin, using registers 

RQ-R2 as parameters. 

Lines 1080-1300 contain the necessary 
mathematics to determine whether a particular 
surface Is visible or not (RQ-surface no.). 

Lines 1550-1870 actually plot a surface on the 
screen, if it is visible (entered with RQ=surface 
no.). 

Lines 1890-1970 plot the whole shape on the 
screen, by calling lines 1550-1870 inside a 
loop. 

Lines 2030-2080 set up a sine/cosine and 
reciprocal table in memory, to speed up the 
mathematics in the machine code. 

Lines 2110-2330 provide a simple demon¬ 
stration of the program, by rotating the shape 
defined in lines 310-380 around ail 3 axes. 

Incidentally, if you look closely at the 
program you will notice that before drawing the 
shape each time, it clears the screen This 
works fine with mode 0, but can cause some 
flicker in higher modes, Vou can improve this 
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by using Exclusive-Or plotting to remove the 
old shape from the screen, rather than by 
clearing the whole screen 


CREATING YOUR OWN SHAPES 

By taking a series of simple steps it is fairly 
easy to modify the program to use your own 
shapes. The method for doing this is as follows: 

1) Determine how many separate points exist 
in your shape (the house shape in the program 
needed 9 points; a cube would need 8) r set the 
value of coords' in line 90 to equal this, and 
then replace tines 310-380 with a list of these 
points, giving the X, Y t and Z coordinates of 
each. 

2) Count the number of faces on your shape 
and place this number in line 90 as the value of 
’surfs'. 

3) Replace lines 360-380 with the new set of 
surface data. Each surface needs four values, 
stating which four points make up the outline of 
the face. With three-sided faces, make the 
fourth pair of values equal to the third. With 
faces of more than four sides, you must split 
the face into srnalie r shapes, and define each 
separately. This is rather like the technique on 
the Beeb of filling a complex area with a 
sequence of triangles. 

10 REM >HiddDraw 

20 REM Program 3D Drawing 

30 REM Version A 1.0 

40 REM Author Mark Davis 

50 REM Rise User May 1988 

60 REM Program. Subject to copyright 

70 : 


SO DIM code &10000 
90 coords-9:surfs=9 
100 M0DEQ:ORIGIN 640,512:PROCass;CLS 
110 xrot=D:yrot--90;zrot-90 
120 zpos=l00:PROCinit:PROCdemo 
130 *POINTER 

140 MOUSE RECTANGLE “640,-512,1280,102 

4 

150 MOUSE TO yrot f xrot 
160 REPEAT WAIT:CLS 
170 MOUSE yrot,xrot,B 
180 IF B AND 4 THEN zpos+-4* UpOS>32} 
190 IF B AND 2 THEN zp0S+=4 
200 PROCrotate:IFI%<=0 THEN Ezoff=zpos 
*256;CALL draw 
210 UNTIL FALSE 
220 END 
230 ; 

240 DEFPROCinit 

250 FOR X=0 TO coords-1; READ x f y,z 
260 E (xw+XM) =x*256i ! {yw+X*4J =y*256 
270 ! (zw+X*4}”Z*256;NEXT 
2 80 FOR X=0 TO surfs-*l:FOR Y=Q TO 3 
290 READ surf: ? (surf dat+X* 4 + Y) =surf 
300 NEXTiNEXT:ENDPROC 
310 DATA 10,-10,-10, 10,10,-10 
320 DATA 10,10,10, 10,-10,10 

330 DATA -10,-10,-10,-10,10,-10 
340 DATA -10,10,10, -10,-10,10 


350 

DATA 18,0,0 



360 

DATA 1,5,6, 2, 

2, 6,7,3, 

5, 4,7, 6 

370 

DATA 0,4,5,1, 

0,3,7,4, 

0,1,8,8 

380 

DATA 1,2,8,8, 

2,3,8,8, 

3,0,8,8 

390 




400 

DEFPROCrotate 



410 

A%= (xrot+720) 

MOD 360 


420 

B%Hyrot+72G) 

MOD 360 


430 

C%-{zrot+720) 

MOD 360 


4 40 

I%~USR rotate 



4 50 

ENDPROC 



4 60 




470 

D E F P RO Cass 



480 

PRINT "Please 

wait 


4 90 

FOR PASSED TO 

2 STEP 2 


500 

P%=code 



510 

[OPTPASS 



520 

EQUD0:♦ya 

EQUD 0:,za 

EQUDO 


530 .xro EQUD0:♦yro EQUD0:♦zro EQUD0 

540 .xoff EQUD 0 

550 *yoff EQUD 0 

560 .zoff EQUD 80*256 

570 .rotate 

580 5TMFD R13!,{HI4} 

590 MOV R12,#0:ADR R8,xw:ADR R9,sin 
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600 ADD RIO,R9,#360:ADR Rl4,xr 
610 MOV RO,RO,ASL#2:MOV R1,R1,ASL#2 
620 MOV R2,R2,ASL#2:STR R0,xro 
630 STR Rl,yro:STR K2,zro 
640 .rotlp 

650 LDR RG,xro:LDR Rl,yro:LDR R2,zro 
660 LDR R3, [RSI:LDR R4, [R8,fyw-xw] 

670 LDR R5,[R8,#zw-xw] 

630 LDR R6,[K9,R2]:LDR R7,[R10,R2] 

690 MUL Rll,R3,R7:MOV R2,Rll,A5R#8 

700 MUL Rll,R4,R6:SUB R2,R2,Rll,ASR#3 

710 STR R2,xa:MUL Rll,R4,R7 

720 MOV R2,Rll,ASR#8 

730 MUL Rl1,R3,R6:ADD R2,R2,Rll,A£R#S 

740 STR R2,ya:LDR R6,[R9,R1] 

750 LDR R7,[R10,Rl]:LDR R3,xa 
760 LDR R4,ya;MUL Rll,R3,R7 
770 MOV R2, Rll, ASR# 8 : MUL RU,R5,R6 
780 SUB R2,R2,Rll,ASR#3:5TR R2,xa 
790 MUL Rll,R5,R7:MOV R2,R11,ASR#8 
000 MUL Rll, R3,R6:ADD R2,R2,Rll,ASR#8 
810 STR R2,za:LDR R6,[K9,R0] 

820 LDR R7,[R10,RQ]:LDR R3,xa 
830 LDR R5,za:MUL K11,R4,R7 
840 MOV R2,Rll f A5R#8:MUL Rll,R5,R6 
850 SUB R2,R2,Rll,ASR#8:STR R2,ya 
860 MUL Rl1,R5,R7:MOV R2,R11,ASR#B 
870 MUL Rll, R4,E6:ADD R2, R2, RH, ASR#3 
880 STR R2,za:LDR R3,xa:LDR R0,xoff 
890 ADD R3,R3,R0:STR R3, JRl4] 

900 LDR R4,ya:LDR R0,yoff 

910 ADD R4,R4,RO:STR R4,[Rl4,#yr-xr] 

920 LDR R5 f za:LDR R0,zoff 

930 ADD R5,R5, RO:STR R5, [Rl 4,fzr-xr] 

940 CMP R5 r #0;MOVLT R0,#1 

950 LDMLTFD Rl3[,|Rl5}:MOV R7,R14 

960 BL recaddr:MOV R14,R7 

970 BIC R5,R5,#£30 

980 LDR R7,[R6,R5,LSR#4]:ADR R6,xs 

990 MUL Rll,R3,R7:MOV Rll,Rll,ASR#6 

1000 STR Rll,[R6,R12,ASL#2]! 

1010 MUL Rll,R4,R7:MOV Rll,Rll,ASR#6 
1020 STR Rll,[R6,#ys-xs] 

103C ADD R8,R3, # 4:ADD R14,R14,#4 
1040 ADD Rl2,Rl2,#1:CMP Rl2,#coords 
1050 BCC rotlp;MOV R0,#0 
1060 LDMFD R13!,[R15} 

1070 : 

1080 .hiddcheck 
1090 STMFD Rl3!,{Rl4} 

1100 ADR R4,surfdat:ADD R4,R4,R0,ASL#2 
1110 LDRB Rl,[R4]:LDRB R2,[R4,#l] 

1120 LDRB R3,IR4,#2J;ADR R5,XS 
1130 LDR R6,[R5,R1,ASL#2J 


1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 


MOV R6,R6,ASR#2 
LDR R7,[R5,R2,ASL#2] 

MOV R7,R7,ASR#2 
LDR R8,[R5,R3,A5L#2] 

MOV R8,R8,ASR#2;ADR R5,ys 
LDR R9,[R5,Rl,A5L#2] 

MOV R9,R9,ASR#2 
LDR RIO,[R3,R2,ASL#2] 

MOV RIG,RIO,ASR#2 
LDR Rll,[R5,R3,A5L#2] 

MOV Rll,Rll,ASR#2 

SUB RO,R7, R6 :SUB R1,R11,R9 

MUL R2, RO, Rl; MOV R2,R2,A£R#8 

SUB RO,R8,R6:SUB R1,R10,R9 

MUL R3,RO,R1:MOV R3,R3,ASR#8 

SUB R0,R2,R3 

LDMFD Rl3!,{Rl5} 

♦xw EQUS STRING?(coords*4,CHR?0) 
*yw EQUS STRING?{coords*4,CHR$0) 
.zw EQUS STRING? (coords*4,CHR$0) 
*xr EQUS STRING?(coords*4,CHR?0) 

.yr EQUS STRING?(coords*4,CHRSQ) 
.zr EQUS STRING? (COOrdsM, CHRS0) 

< xs EQUS STRING?(coords*4,CHK?0) 
.ys EQUS STRING?(coords*4,CHR$0) 

.surfdat 

EQUS STRING?{surfs*4,CHR?G) 

-Sin EQUS STRING?(250,CRR$0) 

EQUS STRING?(110,CHR?0) 

.cos EQUS STRING?(250,CHR30) 

EQUS STRING?(250,CHR$0) 

EQUS STRING?[250,CHR?0) 

EQUS STRING?(250,CHR$0) 

EQUS STRINGS[220,CHR?0) 

EQUS STRING?(220,CHR$0) 

.xsa EQUD xs 
.ysa EQUD ys 
.surfdata EQUD surfdat 

.plot 

ALIGN 

STMFD Rl 31, {Rl4} 

MOV Rl2,R0;BL hiddcheck:CMP R0,#0 
LDMGEFD R13!,{R15} 

MOV R9,R12:LDR RO,surfdata 
ADD R12,R0,R9,A$L#2:LDR Rl0,xsa 
LDR Rll,ysa:LDRB R0,[R12,#0] 

LDR Rl,[R10,HO,ASL#2] 

MOV Rl,Rl , ASR#8 
LDR R2,[Rll,RO,ASL#2] 

MOV R2,R2,ASR#3:MOV R0,#4:SWI *45 

Continue on poge 26 
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Mike Williams presents an early preview of Alphabase, Clares' database for the 

Archimedes. 


Ctares Micro Supplies is developing quite a 
name for itself with Ets range of applications 
packages for the Archimedes, The latest 
product is Alphabase, a card index style of 
database retailing at £49,95 now nearing 
completion. 


it must be stated at the outset that we were 
again privileged with an early pre-release 
version of the software and accompanying 
documentation. This review is therefore very 
much an overview of the principal features and 
facilities of the package, and some details may 
change before the final version is released. 


mmmm 

wmm 

?b~] 

lesa 

i Tn~r| 

BM 

*H] 

@31 

an 

wm 

+55q 

BB 

ES 

| 

; j 

us. ;nr 

ptL:f 

Fr« i 75 



tlw,2E Apr 


Once the disc is booted, Aiphabase's very 
smart looking main menu is displayed on the 
screen. There are twelve quite large icons 
providing the main option choices, an 
information panel giving details of the current 
data file (if any), and at the foot of the screen a 
display of the current date and time (continually 
updated). The display Is very clear, and in my 
view a distinct improvement on some of the 
menu screens employed in earlier software 
from Clares, Moreover, if you are one of those 
(like me) who takes a somewhat jaundiced 
view of the wealth of colourful but often 
puzzling icons used by Archimedes software, 
Alphabase allows all the graphics icons to be 
replaced by simple text legends instead. 

A T * i r ~* DATA Ftl t n 

With Alphabase, creating a new data file is 
a simple but pleasurable experience. Select the 


appropriate icon and you are presented with a 
blank screen designated Page 1. Use the 
mouse pointer to determine the position for a 
field name T and then type it in (maximum 10 
characters). Then select the field type (string, 
real, integer, date, and formula are available). 
For string fields you use the pointer to 
determine the field length on the screen; the 
other field types have standard defaults. A 
formula field is like a spreadsheet cell - you 
specify a formula involving the names of other 
fields and the formula field is calculated when it 
is to be displayed or printed. 

Each record, which may consist of a as 
many as 400 separate fields may be spread out 
over 16 screen pages. Fields once created may 
be moved around within a page, and field 
names etc may be edited later as required. 
Once the data file has been created the details 
may be saved to disc. At this stage you are told 
how many records you have space for, and you 
can cut this down to reflect your real needs. 
Files may also be encrypted using a password, 
and duplicate screen formats may also be 
saved, and later edited to create different 
screen layouts. 

DATA ENTRY 

Data entry is quite straightforward, and 
offers three separate options. Global allows 
values to be replicated across a group of 
records, Normal allows data to be entered into 
fields in any order, while Mask constrains data 
to be entered in the order in which the fields are 
defined (in the current screen format). 

BROWSE MODE 

This option allows you to look at your data 
records, and to delete or amend them. You can 
jump directly to any record but you must specify 
it by record number. 

CALCULATIONS 

Alphabase has a Calculate mode which can 
be applied within a record or to a whole file, for 
example to total the contents of a given field 
throughout a file. There are a number of special 
keywords which facilitate this, such as !SUM (to 
sum the contents of a field), IAVR (to average 
the contents of a field), and !MAX and !MfN (to 
find the maximum or minimum of a given field) 
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SEARCHING AND SORTING 

These are two of the most powerful and 
most useful options provided by Alphabase. 
When searching you can limit the range of 
records that will be processed. You can also 
select any one of four kinds of search (on a 
specific field, on the whole record, or for a 
maximum or minimum value). The syntax for 
search strings allows various relational 
operators (> < = etc) and special keywords like 
INCLUDES and EXCLUDES together with 
logical AND and OR, The search function 
produces a so-called search list; and then 
moves automatically to the sort option screen. 

Not only can Alphabase sort on up to three 
key fields, but by the use of offsets it can also 
sort on part fields. For example, it a field 
contains both a first name and a surname, 
offsets would allow a sort on either first name 
or surname alone. However, the use of part 
fields as sort keys is dependent upon data 
being organised in ’words'; you cannot, say, 
specify a particular set of characters within a 
field (or set of fields) as a sort key. 

Sorting of search lists is entirely within RAM 
and certainly appears to be fast. Note that 
whole files can be converted into search lists 
for sorting purposes without going through the 
search option. Search lists, which are 
effectively lists of pointers may also be saved 
and loaded separately to data files, and a 
search list may also be saved as an index file 
which then allows the use of a fast search 
option for rapid record retrieval. 

PRINT FORMATS 

A major part of any worthwhile database 
system will be concerned with print formats, 
and Alphabase Is no exception. There are three 
ways of handling print requirements. Field 
order allows you to specify the order in which 
fields are to be printed, and together with some 
special characters and a set of so-called printer 
codes (controlling features such as condensed, 
enlarged, underlined text), complete print 
formats may be created. Again offsets may be 
used to select words within fields. 


way of creating a variety of print formats which 
can also be saved and loaded as required. A 
whole-screen menu allows you to specify and 
control page layout (headers, margins, footers 
and the like). Finally, in the print option, label 
printing (for names and addresses or whatever) 
is specifically catered for. 

CONCLUSIONS 

At this stage I can only give some initial 
comments. Overall I am very impressed by the 
clarity and simplicity of the various menu 
screens used by Alphabase, Icons are used, 
but not to excess, and their meanings are 
generally not that difficult to remember. Many of 
the menu screens are in text only, and in my 
view all the better for it. 

The process of file creation (and any 
subsequent changes) is well thought out and a 
delight to use. In general the facilities are much 
what one would expect of a card index style of 
database, and art seems to work well. Several 
menu screens do require you to remember and 
type in field names, not always easy when you 
have to be exact. It would be useful to be able 
to open a scrolling window to check on this. 1 
would also have liked a facility to compose a 
print form on screen using the mouse, rather 
than as a kind of formula (yes, I know screen 
formats may be used for printing, but they still 
don't offer the flexibility 1 have seen elsewhere). 
Finally, I would also liked to have seen at least 
some simple Jinking between two data files to 
provide added flexibilty and economy of 
storage. 

Overall, and this is clearly a personal view, I 
am more impressed by Alphabase, despite a 
few limitations, than some of Clares’ earlier 
Archimedes offerings, but maybe we are all 
learning how best to use this machine, I would 
certainly recommend anyone looking for an 
easy-to-use computerised card index to 
consider Alphabase. If you do want more 
sophistication then consider the pricier Flying 
Start (reviewed in Issue 5), but remember that 
at present it will only run under the PC 
emulator. 


A second option allows records to be 
printed out in the form in which they appear on 
the screen, but remember that any one data file 
may have several different screen layouts 
associated with It, and this in fact provides a 


Alphabase, £49 95 ine VAT 
Clares Micro Supplies 
9$ Middlewieh Road, Rudheath 
Northwich, Cheshire CVY9 7DA 
Tel. <0606) 4S51 \ 
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Mike Williams investigates the enhanced parameter passing provided by Basic V for 

functions and procedures. 


Extensive use of functions and procedures 
has afmost become the hallmark of well written 
programs in BBC Basic despite a number of 
significant limitations. Many of these 
constraints have now been removed with the 
advent of Basic V on the Archimedes. This 
month we'll deal with the way in which 
procedures may now return values to the 
calling program. 

In previous versions of BBC Basic, 
parameters could only be used to pass values 
to a procedure (or function). Now, parameters 
can also be used to return values as well, just 
like the single value returned by a function. 

When a procedure (or function) is defined 
with individual string or numeric parameters, its 
formal parameters (those specified in the 
definition) are treated as local variables to the 
procedure. When the procedure is called, the 
values of the parameters in the call are copied 
into these formal (local) variables. Any 
subsequent changes to the contents of these 
variables should not affect the values of the 
variables passed as parameters to the 
procedure. 

Consider, for example, a procedure to order 
the values of two variables (smallest first): 

1000 DEF PROCorder{A,B) 

1010 IF A>B THEN SWAP A,B 

1020 ENDPROC 
If you add the program: 

100 X=2;Y=1 

110 PROCorder(X,Y) 

120 PRINT X,Y 
130 END 

you will find that the two values assigned to X 
and V remain as set in line 100 (umordered), 
because their values will have been copied to A 
and B when the procedure is called, and it is 
the values of A and B which are re-ordered. 
However, change line 1000 to: 

1000 DEF PROCorder(RETURN A,RETURN B) 
using the keyword RETURN, and the correct 
answer will result because the final values of A 
and B are now returned to the variables (X and 
Y) with which the procedure is called. 


it is important to be clear about the effect of 
this. The call To the procedure PROCorder 
made at line 110 results in the values of X and 
Y being changed in the mein program. There is 
inherent in this a limitation on the use of this 
feature. Whereas in the past procedures might 
be called with either variables or values 
supplied as the parameters, RETURN 
parameters may only be replaced by variables 
when the procedure is called (it is obviously 
impossible for Basic to return values to 
constants), so be careful. 

What if you want a procedure to return one 
or more values, but without changing the 
contents of the variables whose values are 
passed to the procedure in the first place? Let's 
re-write the re-order procedure to do this: 

1100 DEF FR0Corder2(A,B,RETURN HIGH, 
RETURN LOW)} 

1110 IF A>B THEN HIGH=A;LOW=B 
ELSE HIGH-B:LOW=A 

1120 ENDPROC 
and called using: 

100 X=2 : Y=1: MAX-0:MIN=0 
110 PROCorder2 (X, Y, MAX, MIN} 

120 PRINT MIN,MAX 
130 END 

Because A and B are not defined with the 
keyword RETURN, the values of X and Y in the 
call to the procedure (line 110) will remain 
unchanged. The value of the larger of X and Y 
is returned using the variable MAX, and 
similarly the smaller using the variable MIN. 
Note that it is essential to assign some dummy 
values to MAX and MIN (line 100) before the 
procedure is catled, otherwise the variables are 
undefined as far as Basic is concerned, and an 
error message will result. The dummy values 
used are quite immaterial, of course 

With due care, the keyword RETURN used 
with parameters will greatly enhance the power 
of procedures in BBC Basic. 
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AN INTELLIGENT AUTO-CONFIGURE 


bv 


Lee Colcraft 


Use this program as a BOOT file to automatically reconfigure your machine to suit the 
needs of a particular application. Auto-configuring is only performed when absolutely 
necessary; and a special option activates a display of the machine $ current state. 


You will probably be familiar with the notion 
of auto-configuring the Archimedes. A number 
of pieces of commercial software employ the 
technique to configure the host machine to suit 
the software concerned, and automatically 
reconfigure the machine to its original settings 
after the application has terminated. 

The accompanying program performs the 
same function, but has a number of 
enhancements. First of all, it will cater for the 
full range of machines, including those of the 
400 series, whose larger "page" size is ignored 
by most auto-configure software. One major 
advantage of the program listed here is that it 
oniy reconfigures the host computer when this 
is essential. Most auto-configure software 
mindlessly configures every machine on which 
it runs (with consequent time overhead), 
regardless of whether it is necessary or not. A 
further strength of the accompanying program 
is that it contains an option to display the type 
and current state of the host machine, together 
with the target state. This is very useful for 
debugging purposes. 

USING THE AUTO CONFIGURE ROUTINE 

When experimenting with auto-configuring 
software, it is very easy to lose your machine's 
current settings, so as a precaution, it would be 
wise to save these away using the 
Configuration Save routine from last month's 
RISC User Hints, or the CMOS RAM Manager 
from RISC User Issue 2, To test out the 
program, first type it in and save it to disc. Next, 
set your disc to auto-boot, using *OPT4,2 then 
alter the first few lines of the auto-configure 
program to meet your current requirements. 
Lines 140 to 180 should contain the amounts of 
RAM in kilobytes required by your application 
for each purpose e.g. a mode 15 screen will 
require 160K, so set Tscreen to 160, and so 
on. This is also the case for the RMA 
allocationi you should Ignore any RMA RAM 
required by resident modules etc. When you 
have done this, set line 190 to give the name of 


the program to be chained in by the configuring 
routine. 

Now save the amended program under the 
name !BOOT, in the root directory of your disc, 
and if you press Shift-Break, it should all 
happen. Because we have left line 210 as 
disp=TRUE, the program will produce a display 
of the machine's state, and wait for the space 
bar to be pressed (change to disp=FALSE to 
omit this facility). It will then, if necessary, 
reconfigure the machine as prescribed, before 
chaining the application. After you have 
finished with the application, pressing Ctrl- 
Break (or performing a power-on reset) will 
restore your original configuration. 
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One further note: the program saves the 
host machine's configurations in a file called 
ICmosData In the root directory. It has exactly 
the same format as files used with either the 
CMOS RAM Manager or the Configuration 
Save routine. The loader automatically deletes 
this file when it terminates. You should note 
that the loader uses the presence of this file to 
indicate whether it is in the middle of 
reconfiguring (after performing an automatic 
hard Break), or whether It is being freshly run. 
When debugging the routine you should 
therefore always check that the mot directory of 








AN INTELLIGENT AUTO-CONFIGURE 


your disc does not hold this file - erase it if you 
find it, and re-boot the loader. 


■ .r T i grateffal to Clares Micro Supplies for 
un-nrssion to use their hard Break routine 
- r '-■ ' i ad in this program. 


10 REM 

20 REM Program 
30 REM Version 


>RUconfig5 

Auto-Configure 
A 0,5 


40 REM Author Lee Calcraft 

50 REM RISC User May 1988 

60 REM Program Subject to Copyright 


70 : 

80 DIM B% £20,code 40 
90 DIM alloc(10),con$(6) 


100 tot=0:K=1024 


110 REM' 


120 REM Set requirements here 
130 REM in Kbytes 


140 Tbasic=233 
150 Tscreen-80 
160 Tsprites=70 
170 Tfont=67 
ISO Trma-81 
190 name$="MainProg" 


REM Basic 
REM Screen 
REM Sprites 
REM Font 
REM RMA 
REM prog name 


200 REM- 


210 disp=TRUE :rem Display ? 

220 REM-———---------— 

230 IF FNostestcl.2 then PRINT 11 Ope rati 
ng system 1.2 or above required":VDU7:EN 
D 


240 SYS "0$_File ,r , 17, " r 0 . $ - ! CmosData" 
TO fiie% 

250 IF file%<>0 THEN 
260 PROCreloadcmos 
270 *DELETE ;0.$.!CmosData 
280 CHAIN name$ 

290 ENDIF 
300 ; 

310 PROCtestsiPROCbreakcode 
320 IF disp THEN FRQCdisplay 
330 IF FNmet THEN 

340 IF disp THEN FROCspace{”Chain Prog 
ram" J 

350 CHAIN name$ 

360 ENDIF 
370 : 

380 REM Are conditions attainable? 

390 required-Tbasic+Tscreen+Tsprites+T 
font+Trma 


400 maxuseable=tot-alloc{5)-alloc[6)-a 
lloc(4)+alloc(9)+alloc(8) 

410 IF disp THEN 

420 PRINT SPC10 "TOTAL RAM {available) 
,f TAB (33) ,maxuseable/K" K"; 

430 PRINT SPC3 "(Req'd)" TAB{64) requi 
red/K rt K 1,r 
440 ENDIF 

450 IF required>maxuseable THEN PROCfa 
ilmessage:END 
460 : 

470 PROCallsteal 
480 IF disp THEN 

490 FOR A=0 TO 5:PRINTconS(A):NEXT 
500 PROCspace{"Reconfigure") 

510 ENDIF 

520 PROCsavecmos 

530 FOR A=0 TO 5:OSCLI (con$(A)):NEXT 

540 *CONFIGURE BOOT 

550 *CONFIGURE DRIVE 0 

560 CALL code 

570 END 

580 : 

590 DEFPROCreloadcmos 
600 CLOSE#0 

610 handle%OFENIN(": Q.$. 'CmosData") 
620 FOR A=0 TO 239 

630 OSCLI("FXl62 , "+STR$(A) +% M +STR$(BG 
ET# handled)) 

640 NEXT:CLOSE# handle%:ENDPROC 
650 : 

660 DEEPROCsavecmOS 
670 CLOSE#0 

680 hand!e%=OPENOUT{";0.$.’CmosData") 

690 FORA“0 TO 239 

700 BFUT#handle%, FNcmos(A) 

710 NEXT;CLOSE #handle%:ENDPROC 
720 : 

730 DEFPROCtestS 

740 IFFNfour THEN page%=68Q00 ELSE pag 
e%=&2000 

750 FROCtvalueadjust 

760 PROCreadram 

770 alloc {7)=FNscrn 

780 alloc(0)=HIMEM-PAGE 

790 alloc(8)=Sl000*FNcmos(134) 

800 alloc(9)=page%*FNcmos(146) 

810 FOR A=1 TO 7;tOt+=allOC(A):NEXT 
820 ENDPROC 
830 : 

840 DEFPROCfailmessage 
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850 IF NOT disp THEN MODEO 
860 VDU19,0,24,208,0, 64 
370 PRINT 11 "This software requires mor 
e than ";tOt/K" K of RAM" 

880 VDU7:ENDPRGC 
890 : 

900 DEFPROCspace(text$} 

910 PRINT'"Press Space to ";text$ 

920 REPEAT UNTIL GET=32 
930 ENDPROC 
940 : 

950 DEFPRGCreadram 

960 FOR A=1 TO 6 

970 READ startI 

980 start%=start%*£lG0Q0 

990 alloc(A)-FNrange(start%,page%) 

1000 NEXT:ENDPROC 
1010 r 

1020 DEFPROCallsteal 
1030 C$-"*Configure " 

1040 con? (0] =C$+"5creenSize "+STR$ (Tscr 
een/page^) 

1050 con$ (1) =C$+"SpriteSize ,T + STR$ {Tspr 
ites/page%) 

1060 con?(2)=c$+"FontSize "+STR?(Tfont/ 
(4*K)) 

1070 con$(3) =C$+"RMASize "+5TR$(Trma/pa 
ge%) 

1080 con?(4 ) =C$+"RamFSsize 0" 

1090 con? (5) =C$+"5ystemSize 0" 

1100 FpNDPROC 
1U0 ; 

1120 DEFFROCtvalueadjust 
1130 IF Tscreen<40 THEN PRINT"SCREEN VA 
LUE TOO LOW (4OK Minimum)VDU7:END 
1140 Tbasic=FNroundup(Tbasic) 

1150 Tscreen=FNroundup(Tscreen) 

1160 Tsprites-FNroundup(Tsprites) 

1170 Trma-FNroundup[Tnua) 

1180 Tfont=Tfont *K 

1190 IF Tfont MOD (4*K) THEN Tfont+=4*K 
-(Tfont MOD (4*K)) 

1200 ENDPROC 
1210 : 

1220 DEFFNroundup(param) 

1230 param=param*K 

1240 =page%*{(INT(param/page %)-[(param 
MOD page%)>011) 

1250 : 

1260 REM Are conditions met? 

1270 DEFFNmet 


1230 Mbasic-(Tbasie<=alloc(0)) 

1290 Mscreen=(Tscreen<~alloc(7)) 

1300 Msprites-(Tsprites<=alloc(3) ) 

1310 Mfont={Tfont<=alloc{8}) 

1320 Mrma=(Trma<=alloc(9)) 

1330 -Mbasic AND Mscreen AND Msprites A 
ND Mfont AND Mrma 
1340 : 

1350 DEFFNcmos(loc) 

1360 SYS 6,161,loc TO X,Y,Z 
1370 =Z 
1380 : 

1390 DEFFNrange(start%,page%) 

1400 addr%=start% 

1410 REPEAT 

1420 Z%=FNcheck(addr%) 

1430 addr%+=page% 

1440 UNTIL Z%=FALSE 
1450 =addr%-start%“page% 

1460 : 

1470 DEFFNcheck{addr%) 

1480 SYS £3A, addr%,addr% + l TO ;flag 
1490 =(flag AND 2}-0 
1500 : 

1510 DEFFNtxt: RESTORE 
1520 REPEAT READ start,text? 

1530 UNTIL addr%m0000<=start:=text$ 
1540 DATA O,&lOO,&14O,S<l8O,&lCO,£lF0 
1550 : 

1560 DEFFNscrn 

1570 B%={(B%+3)DIV4)*4:!B%^15G:!(B%+4)- 
-1 

1580 SYS &31,B*,B%+&10;=!(B%+fil0i 
1590 : 

1600 DEFFNfour 
1610 SYS &1A ,0,0 TO reg 
1620 =(reg AND 8)=B 
1630 : 

1640 DEFFNostest 

1650 SYS 6+2 A 17,0,0 TO A% 

1660 A$- n ":A%+=11 
1670 FOR B=0 TO 3 
1680 A$t=CHR${A%?B) 

1690 NEXT:=VAL(A$) 

1700 : 

1710 DEFPROCdisplay 

1720 MODEO:VDU19,0,24,128,128,240 

1730 IF page%=«f2000 THEN A$="30Q " ELSE 

A$= ,, 40Q " 

1740 PRINT SPC7 rt * ** ";A$"series machine 
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1750 PRINT"*** OS ";FNostest; 

1760 PRINT" *** Total RAM ";tot/K" Kbyt 
es ***"’ 

1770 FOR A=0 TO 9 
1780 READ A$ 

1790 PRINTSPC(10)A$ TAB(33),alloc(A)/K" 
K" 

1800 NEXT 

1610 PRINTTAB(70,1)"TARGET" 

1820 PRINTTAB(64,2)Tbasic/K" K" 

1630 PRINTTAB(64,5)Tsprites/K” K" 

1840 PRINTTAB(64,9)Tscreen/K" K" 

1850 PRINTTAB(64,10)Tfont/K" K" 

1860 PRINTTAB(64,11)Trma/K" K" 

1870 ENDPROC 
1880 ; 

1890 DEFPROCbreakcode 


1900 FOR I%=0 TO 9 
1910 READ hex$ 

1920 !(code+1% *4)=EVAL("&"+hex$) 

1930 NEXT 

1940 ENDPROC 4 

1950 : 

1960 DATA E3AOOOC8,E3A01003,E3A02000,F.F 
020006,E3A0050E 

1970 DATA E5901000,E7011001,EF02QQ16,E3 , 

3FF3FF,E3AOFOOO 
1980 : 

1990 DATA SilMEM-PAGE, System tApplicatio 
n, RAM Filing system,Sprite space 
2000 DATA Total RMA Space, System heap 
+stack,Cursor tsystem space 
2010 DATA Screen space,Font space,RMA S 
pace (*Config) 


FAST DIRECTORY COPIER (continued from page 6) 


1080 irvhandle%=OFENIN name$ 

1090 !canuse%=entryoff% 

1100 canuse%f=l2 

1110 filecount%+-l 

1120 PRINT”Reading f, ;name$ 

1130 SYS M OS_GBPB ,, ,3,inhandle%,canuse% f 
workend%-canuse%~&10G,through!ile% TO ff 
t notread%,newthrough% 

1140 canuse%!-4=newthrough% 

1150 canuse%!~8“throughflle% 

1160 canuse%+=(newthrough%-throughfile% 
+ 3) AND (NOT 3) 

1170 $canuse%=savename$ 

1180 carsuse%+= {LENsavename$+4JAND (NDT 3 
J 

1190 CLOSE Unhandle* 

1200 UNTIL newthrough%=entryoff%!8 
1210 ELSE 

1220 PROCreadin (rtatteS, entry off %! £10) 

1230 ENDIF 

1240 NEXT 

1250 ENDIF 

1260 ENDPROC 

1270 : 

1280 DEFPROCbashout 
1290 LOCAL entryoff%,1% 

1300 IF filecount%<>0 THEN 

1310 PROCwaitondisk ("Destination") 

1320 canusel-workstartl 
1330 FOR TO filecount% 


1340 entryoff%“!canuse% 

1350 startoff%=canuse%!4 
1360 endoff%=canuse%!6 
1370 canuse%+=l2 

1380 naiaeoff%=canuse%+ ((endoff%~startof 
f%+3)AND(NOT 3)) 

1390 PRJNT H Writing Snameoff* 

1400 IF start off%=0 AND endoff!=entryof 
f%!8 THEN 

1410 SYS "OSFile",0,nameoff%,entryoff% 
!0,entryoff%!4,canuse%,canuse%+endoff% 
1420 ELSE 

1430 IF startoff%=0 Outhandle'HOFENOUT 
$nameoff% ELSE out hand le%=QFENUP $nameof 
f% 

1440 SYS "OSJSBPBM , outhandle%,canuse% 
,endoff%”Startoff%,startoff% 

1450 CLOSE#outhandle% 

1460 ENDIF 

1470 IF endoff%=entryoff%!8 SYS "OSFil 
e",l,nameoff%,entryoff%|0,entryoff%!4, ,e 
ntryof££!12 

14 80 canuse%-nameoff%+(((LEN$nameoff%) + 
4)AND(NOT 31) 

1490 NEXT 
1500 ENDIF 

1510 canuse%-workstart% 

1520 fllecount%“0 
1530 ENDPROC 
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David Spencer takes a look at Architext from Hopesoft, a new text editor offering both 
advanced features and ease of use. 


Architext is a new mouse-controlled text 
editor, mainly for use in writing and editing 
programs in compiled languages such as C 
and Fortran. The software is supplied on a 
single disc, and our pre-release version was 
accompanied by a 20 page user guide. 

Architext has to be configured before use, 
using a program supplied on the disc. One 
option allows you to select a version of the 
program that can be used to edit Basic 
programs, while another gives you the choice 
of mode 8 or 19, (both 80 characters per line, 
but mode 19, which is only available with a 
multisync monitor, gives 64 as opposed to 32 
lines). There are two further options, those 
controlling search and replace, and the 
handling of Tab characters. 

When the editor is first invoked you see a 
few red lines at the bottom of the screen and a 
rather badly designed cyan arrow which can be 
moved around with the mouse. The red lines 
define the control area of the screen, which 
consists of some arrow icons for scrolling, a 
scroll bar of sorts, and information on the file 
being edited. 

Architext is controlled by a combination of 
the keyboard and the mouse, but this doesn't 
mean that it runs under WIMP manager, in fact 
far from it. The mouse is used to move a cyan 
arrow round the control area, or a carat round 
the text. The mouse's buttons can be used to 
move the cursor, select text, or bring up an 
editing menu. 

One of the main features of Architext is the 
ability to bad up to six files at one time. These 
extra documents can be displayed one at a 
time and edited as desired. It is also possible to 
copy and move from one to another. 
Unfortunately, this feature didn't work properly 
on my version, due to a problem with memory 
allocation which Hopesoft claim will be fixed In 
the final version. 


Entering new text or editing existing text is 
fairly simple, although you are confined to 
insert mode at all times. The Tab key can be 
used to insert either a Tab character, or a 
certain number of spaces, depending on which 
is more appropriate. A further limitation is that 
you are restricted to the keyboard characters, 
which could be a problem if you are editing text 
containing special characters. 

Architext, in common with other text editors, 
has fairly comprehensive search and replace 
facilities. It is possible to search and replace 
strings on a global or selective basis, and also 
to maintain search and replace buffers, so that 
text can be edited during a search, and the 
search then continued, Wildcard searches on a 
limited basis are allowed by using a dot to 
match any character, and a vertical bar to 
replace groups of characters. Sadly, none of 
the advanced pattern matching facilities found 
In Twin are present in Architext, and I feel this 
could make otherwise simple tasks very time- 
consuming and tedious. 

Comparing Architext with Acorn's Twin, it is 
Architext which, In my opinion, gives the 
impression of being the back runner. However, 
Architext does allow effective use of the mouse, 
whilst Twin is confined to the keyboard, and at 
£19.90 Architext is over £13 cheaper than 
Twin, and thus fully justifies its price, 
incidentally, for just £3,50 you can get a 
demonstration version of Architext, which will 
do everything but save to disc, and if you later 
decide to buy the full product your £3.50 is 
refunded. Despite this, I feel that Twin is 
altogether the more professional product, and 
the one 1 would choose. m 

[I"Product " AtcMeid Text 'Editor 

Supplier Hooesoff 

Hope C oft age Wip.ter&Ouf^e #: 
Newbury, Berkshire KG 16 8SB 
ref (0635) 248472 
I Price £19 90 inclusive 
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More startling visual effects by J.Boomgaardt and B,Christie, 


. r StifNfNS JRC plSPLSV 

The major Visual in this month's column 
comes from Jeroen Boomgaardt, and although 
somewhat longer than our usual listings, it is 
well worth the effort of typing it in. The program 
creates a large Archimedes "A" togo in the now 
familiar colours. But the body of the "A" 
appears to have a shining metallic surface 
whose reflection continually shifts, producing a 
quite breathtaking effect. At the same time, 
enlarged text scrolls across the lower part of 
the screen. 



The text is held in DATA statements, and it 
is a trivial matter to after this to suit your whim. 
The protocol is simple. The final data statement 
should contain a single space character (as on 
line 1040). The only other point is that you can 
reverse out the scrolled text by including 
character 164 at any point, A second 
occurrence cancels the effect. The control code 
164, which can be entered directly from the 
keyboard with Shift-Pound (though not in Twin), 
is used in the example to reverse out the words 
"RISC User” in line 1020. Note that character 
164 prints out differently on different printers. 
On an FX80, it appears as a $ sign, and as a § 
in our listing. 

The program uses a number of tricks that 
are well worth a mention. Firstly, it runs in 
mode 12, and achieves the shining effect by 
changing the palette of the white and grey 
colours which make up the body of the "A". 
This is performed in machine code (called 
regularly in line 380). The scrolling text is 


handled in Basic, and uses OSWORD 10 to 
read the pixel definition of each character to be 
displayed. The routine which outputs the 
enlarged pixels makes use of a VDU call 
(VDU23,16,8|} to send characters in a vertical 
sequence. To test this out, type: 

VDU23,16,8| 

in immediate mode, and see the effect when 
you type at the keyboard (to get things back to 
normal, use VDU23,16|). 

10 REM >Arc$park3 

20 REM Program Shining Arc 

30 REM Version A 0.3 

40 REM Author Jeroen Boomgaardt 

50 REM Rise User 1988 

60 REM Program Subject to Copyright 

70 ; 

80 MODE 12:OFF 

90 ON ERROR VDU23,16f;VDU26:ON:REPORT 
:PRINT" at line ,T ;ERL: END 

100 DIM M% 9,parm 5,code 150,rb l,tb 1 

110 ?rb=l:?tb=Q 

120 PROCassemble 

130 PROCarch 

140 VDU 19,0,24,0,0,240 

150 VDU 19, 0, 4; 0; 19,2, 3; Q; 

160 VDU 23,128,0,&1C,&3E,&7F,& 7F,&7F, £ 
3E,&1C 

170 VDU 28,0,30,79,23 

180 VDU 31,79,0:VDU 23,16,8| 

190 COLOUR 2;R%=0:V%=1 

200 : 

210 REPEAT 
220 RESTORE 
230 REPEAT 
240 READ T$ 

250 FOR N%=1 TO LEN(T$} 

260 C%-ASC(MID$(T$,N%,1)J 
270 IF 01=164 THEN VDU 23,17,51 ELSE P 
RQCprint 
280 NEXT 
290 UNTIL T$=" * 

.300 UNTIL FALSE 
310 : 

320 DEF PROCprint 
330 ?M%=C% 

340 SYS "OS_Wor,10, M% 

350 P%=256 

360 FOR K%—1 TO 8 

370 P£-F%»>1 

380 WAIT;IF K% MOD 2 THEN CALL shine 
390 FOR T%=1 TO 8 
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400 IF ((M%?T%)ANDP%)>0 THEN VDU 128 E 
L5E VDU 32 

410 NEXT:NEXT 
420 ENBFROC 
430 : 

440 DEF RROCarch 

450 VDU 24,440;440; 1279; 1023 ,* 

460 ORIGIN 440,440 
470 GCOL 0,15 

480 RECTANGLE FILL 375,0,30,490 

490 MOVE 40,0:MOVE 405,490 

500 PLOT £75,370,490 

510 MOVE 285,130:MOVE 385,205 

520 PLOT £A5,175,185:MOVE 285,130 

530 MOVE 385,245:PLOT £A5,230,200 

540 FILL 285,260 

550 FOR Y%=0 TO 12 

560 GCOL 2,Y%+3 

570 RECTANGLE FILL 0,Y%*38,410,34 
580 NEXT 

590 GCOL 0,1:FILL 285,300 
600 GCOL 0,2:FILL 285,130 
610 ENDPROC 
620 : 

630 DEF PROG assemble 

640 count=3:dir=4:co1=5:tint-6 

650 FOR pass=0 TO 2 STEP 2 

660 P%=code 

670 [ opt pass 

680 ,shine 

690 ldrb dir,rb 

700 ldrb count,tb 

710 cmp dir,#1 

720 addeq count,count,#1 

730 subne count,count,#1 

740 cmp count,#12 

750 moveq dir,#0 

760 cmp count,#0 

770 moveq dir,#1 

780 mov col,#3 

790 -loop 

800 add tint,col,count 
810 cmp tint,#15 
820 rsbgt tint,tint,#30 
830 strb col,parm 
840 mov RO,#16 
850 strb R0,pam+1 
860 mov tint,tint, LSL#4 
870 strb tint,parm+2 
880 strb tint,parm+3 
890 strb tint,parm+4 
900 mov R0,#£C 
910 adr Rl,parm 
920 swi "OSWord" 

930 add col,col,#1 


940 cmp col,#16 
950 bit loop 
960 strb dir,rb 
970 strb count,tb 
930 mov pc,Rl4 
990 ]NEXT 
1000 ENDPROC 
1010 : 

1020 DATA "SRISC User§ brings you a shi 
ning example of §ARCHIMEDES§ graphics - 
All accomplished in Mode 12 " 

1030 DATA "A rapidly changing grey-whit 
e palette gives the impression of a refl 
active, highly-polished surface 

i» 

1040 DATA " n 

rtfs* 

This clever routine by Barry Christie 
produces a truly hideous giant worm which 
ripples away from you while still remaining 
stationary! 



10 REM >MegaWoml 

20 REM Author Barry W Christie 
30 : 

40 MODE 12:OFF 

50 FOR 1=1100 TO 1 STEP -.25 
60 GCOL I MOD 16 

70 CIRCLE G4GtI*SlN(RAD{I)),512+X*SlN 
(RAD(1/2)) ,1/2 
80 NEXT 
90 REPEAT 
100 FOR I=Q TO 15 
110 FOR J=1 TO 7 
120 COLOUR I+J,J*16, J*16,J*16 
130 COLOUR I+16-J,J*16,J*16,J*16 
140 NEXT:WAIT:NEXT;UNTIL FALSE fTR 
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Felix Andrew explains how the procedures presented last month moy be used 
In your own applications, and shows how easily these allow you to design 
a completely new window. 


Last month’s program contained all the 
basic procedures to create and display simple 
windows using the Archimedes WIMP 
manager. By following the layout of this 
program and using the procedures and 
functions contained in it, you should be able to 
create your own WSMP-based programs, A 
good way of doing this is to place the 
procedures in a library file and use the Basic 
LIBRARY statement to call them up {see RISC 
User Issue 2). The use of the various 
procedures and functions is described in more 
detail below. 

The additional code given this month 
implements a third window which is described 
later. This code should be appended to last 
month’s program, keeping strictly to the line 
numbering as given. You will probably find it 
worth doing this first so that you may then 
experiment with the revised program as you 
read through the rest of this month's instalment 
on windows. 

INITIALISATION 

The windows environment is initialised by 
the procedure PRGCsetupvars, which also sets 
the colour palette and allocates space for the 
parameter blocks which are used to 
communicate with the WIMP manager. Line 
500 initialises the WIMP manager itself, and 
this must always be done at the start of any 
windows program. The WIMP manager clears 
the background to the highest physical colour 
(in mode 12 colour 15). Line 480 also clears 
the screen to the same colour but helps to 
prevent any unsightly colour changes in the 
interim before the WIMP manager takes effect. 
Several macro flags are created for use now 
and later. These will be dealt with later, 

CREATING YOUR OWN WINDOWS 

The dimensions of each window, its colours 
and name are all passed to the function 
FNcreate (line 1620 onwards). This function 
does take 11 parameters, but they are all quite 
simple to understand. The first two (pw and pd) 
define the size of the page or WAE (work area 


extent) in terms of its width and depth (or 
height). The top left hand corner of the WAE is 
set to the origin (0,0), so that the WAE width is 
positive (to the right), and Its depth is negative 
(downwards). The WAE can be much larger 
than the visible area, and even larger than the 
screen area as demonstrated by the new 
window. 

Next we specify the colours for the title bar. 
You need to specify the foreground colour (tf), 
background colour (tb) and select colour (ts). In 
the demonstration program, the mode 12 
logical colours are referred to as cl, c2 etc, and 
the actual colours used are defined in 
PROCsetupvars (last month’s Screen Manager 
utility was very useful here). 

The title of the window is specified next 
(T$), and this must contain a maximum of 11 
characters. Next we define the foreground and 
background colours for the WAE (pf, pb), 
followed by the foreground and background 
colours of the scroll bars (sf, sb). Finally we 
need to pass a series of flags, which will be 
explained in a later article. The WIMP manager 
gives each window a number or handle which it 
uses to refer to the window from then on, and 
this is returned by the FNcreate function. Once 
the window has been created, the WIMP 
manager will keep a record of the window’s 
parameters. Now we must open the window. In 
the demonstration, the additional procedure 
PROCsetupwindows calls FNcreate to 
establish all the windows to be used. 

OPENING A WINDOW 

To open a window (display it on the screen) 
the WIMP manager needs to know several 
things. The procedure PROCopenwindowl 
(line 2140), with 5 parameters, performs this 
function. The first parameter is the window 
handle. Next we specify where on the screen 
we want the top left hand corner of the window 
to be. Finally we specify how wide and how 
high the window should be initially. If you make 
the window too small, in any direction, for the 
WJMP manager to be able to draw its frame, 
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then the window will open at a default minimum 
size in that direction. If, however, you make the 
window bigger than the defined size of the 
WAE, in any direction, then the WIMP manager 
tries to open it to the size of the WAE, in that 
direction. Using the routines FNcreate and 
PROCopenwindowf you can create and open 
aEl the windows you want, but remember that 
the WIMP manager can only keep track of 32 
windows at a time. 



FILLING A WINDOW 

We now have to put any text or graphics 
inside the window. If you take a look at the end 
of last month's program, you will see two short 
procedures which fit! the two windows with text 
and graphics. Let us go through the first 
procedure PROCwindowl (see line 5000). This 
procedure prints two pieces of text in window 1 
using PROCtext. The parameters for FROCtext 
are very similar to those used in the Basic 
instruction PRINTTAB(x,y). First we specify 
where the text is to appear on the WAE, in 
graphics units, and then we specify the text 
itself. To save time, the procedure PROCtext 
wilt only attempt to print the text if it would 
currently be visible. 

The second procedure, PROCwindow2 
from line 5050, performs a similar function for 
the second window, but contains some 
additional coding. This procedure draws a 
circle behind the text. To do this we must first 
see if any part of the circle is actually visible 
and needs to be drawn. The circle we want has 
an origin of 150,-150 on the WAE, and a radius 


of 150. The circle therefore occupies a square 
whose bottom left-hand corner is at (0,-300) 
and whose top right-hand corner is at (300,0). 
The procedure FNtn (0,-300,300,0) checks to 
see if any part of this square needs to be 
drawn. If it does then PROGgwindow is used to 
set up a normal graphics window (using VDU 
commands) and origin so that we can plot our 
circle without worrying about it spilling out of 
the window and onto the frame. The final 
VDU26 resets the graphics windows so that the 
WIMP manager can draw Its frame etc. 

CREATING A NEW WINDOW 

111 now show, step by step, how to create 
your own windows, by adding an entirely new 
window to our working program (see this 
month’s new code). 

1. First, create a new window of the 
required size. Line 191 does this for us and is 
added to the procedure PROCsetupwindows, 
where the variable ’w3 r is set as its handle. 

2. Now we must open the window. Line 125 
does this, and is inserted just before the main 
bop so that the window is open from the start 
of the program. In a later article HI show how to 
use menus to trigger the opening of windows. 

3. At this stage the WIMP manager knows 
about our new window and will prompt us to 
redraw it when necessary, but we need to 
amend the program to do this (line 1275). 

Those are all the additions that need to be 
made to create a new window. AH that remains 
1$ to fill the window as required with text and 
graphics, using a new procedure called 
PROCwindow3 (line 5200). 

Window 3 is going to contain a graph, a 
horizontal axis and some text. First we display 
the text as before. The graph Is to be drawn to 
fill the full height of the WAE, so we know that 
whenever the window moves we will need to 
draw some new part of the graph. Because of 
this we don’t bother to test first using FNEn (as 
with window 2), to see if any update needs to 
be made, and can simply set the graphics 
window and origin. First we draw the axis, line 
5270, which is 200 units down in the WAE and 
stretches all the way across it. Next we add to 
the axis some markers. Sines 5280 to 5320. 
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These are positioned every 90 units along the 
axis, and we therefore use the function FNin to 
see if any of them are in the visible rectangle of 
the window which we have to fill. Lines 5340 to 
5380 draw the graph in the rectangle. The 
FOR-NEXT loop starts just outside the 
rectangle, and finishes just beyond it. This is to 
make sure the graph joins up. Finally we re-set 
the graphics origin and window. 

That’s all we have space for this month. I 
suggest you experiment with the program we 
have developed so far, and consider adding 
one or more windows of your own design. I'm 
sure you’ll find it instructive. Next month we will 
complete our analysis of the basic windows 
program by dealing with the very important 
WIMP poll routine, which is what keeps the 
window displays intact as you move and 
manipulate the windows on the screen, and 
well also look at some new features as well, 

125 PROCopenwirtdowl (w3,200,900,750,100 

0 ) 

191 w3=FNcreate(4000 r -4QQ f c2,cl,c3,"Wa 
ve Form", cl, c3,c2,cl,windowf ) 

305 PROCshut(w3) 

1275 WHEN w3:PROCwindow3 
1530 hp=wtx-wbx;vp=wty-wby:ebx-xsc+gbx- 
wbx 


1540 etx=xsc+gtx-wbx; ety=ysc+gty-v/ty;eb 
y=ysc-gby-wty 

1580 VDU 26, 5, 24, gbx; gby; gtx-2;gty-4; 

1590 ORIGIN wbx-xsc,wty-ysc 

5200 DEF FROCwindow3 

5210 PROCtext(4,-8,"sine and cosine") 

5220 PROCtext(2OO0j-8,"less cosine") 

5230 PROCtext(3800,-8,"just sine") 

5240 PROCgwindow 
5250 GCOL 1 
5260 D%=90 

5270 LINE ebx,-200,etx,-20G 
5280 IF FNin (ebx,-220,etx,200) THEN 
5290 FOR X%=ebx+4-(ebx+4 MOD D%) TO et 
x+4-(etx+4) MOD D% STEP D% 

5300 MOVE X%-4,-200:MOVE X%+4,-200:PLOT 

8 5,X%,-220 

5310 NEXT 

5320 ENDIF 

5330 GCOL 2:P%M 

5340 FOR X%=ebx-4 TO etx+4 STEP 8 
5350 IF X%>ebx-4 THEN P%=5 
5360 IF X%<3000 THEN C=COS(RAD(X%/.27) ) 
*(l-{X%/3000)) ELSE C-0 
5370 PLOT F%,X%,(SIN(RAD(X% )) +C)*90-200 
5380 NEXT 
5390 VDU26 
5400 ENDPROC 
5410 : 



■ 


Here, as promised, are a few additional notes on using last month’s Screen Manager. 


There was not the space in last month's 
article to explain how to make use in other 
programs of the palette files created by the 
Screen Manager. It is really very simple. Just 
include in your own program, lines 1960 to 
2130 of last month's listing. This will provide 
you with two procedures: PROCioader and 
PROCget. To load a palette file, just include 
the line: 

PROCioader (filename) 

where filename is the name of the file under 
which the palette was originally saved. This 
will set up the full palette of up to 16 colours 
and the screen border, but since the fife 
contains no mode information, you will need to 
set the correct screen mode before loading. 


One genera! note on using the Manager 
itself - the program cannot be fully aware of all 
the prevailing conditions when it is called, and 
may therefore need to be tailored in small 
ways if it is to leave the machine completely 
unaltered when it passes control back to the 
calling program. For example, it currently turns 
on the cursor, and extinguishes the pointer on 
exit. If this is not appropriate, just alter 
PROCrestore (lines 710-760), Incidentally, the 
Screen Manager currently assumes that 
VDU5 is not in operation - it is safer to add a 
VDU4 instruction at line 785 at the start of 
PROCinit, and reinstate VDU5 at line 755 if 
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There are many applications which call for a 
stable PAL encoded video output from the 
Archimedes, either for directly recording the 
Arc’s output on video tape, or for overlaying its 
output on a second video signal for titling or 
other purposes. The G2 Systems Genlock 
podule opens the way to both of these 
applications. 



It is easily installed in a podule backplane at 
the rear of the machine, and provides three 
external sockets: video in and out, and RGB 
in. The latter connects to the analogue RGB 
socket of the Archimedes via a short cable 
supplied with the podule. But the net result of 
this is that you cannot use the Achimedes’ 
RGB monitor. You can however connect up the 
mono video output of the Arc to a suitable 
monitor if you wish. The podule’s video out 
could be connected either to a video monitor 
(mono or colour), or to a video recorder. And 
finally, the video in might either be connected 
to the output of a video recorder, or to a video 
camera. 

When testing the system, I used a Ferguson 
Videostar camera as a source, with the output 
of the podule connected to a video recorder. 
The system worked first time, producing a 
combined picture from the Arc, and the 
camera, as monitored at the output of the video 
recorder. After a number of tests it was evident 
that, as suggested in the documentation, the 
quality of the combined image is not sufficiently 
good for use with text in 80 column modes. 
This is a direct consequence of the necessary 
PAL video encoding performed by the podule. 


though on much more expensive broadcast 
quality Genlock systems the effect is less 
noticeable. As G2 Systems advise, it is 
generally better to keep to 40 column text at the 
smallest; though from tests, it was clear that the 
degradation was a direct function of the type of 
background against which the text appeared, 
and of the colours used in both foreground and 
background. Certain foreground colours such 
as deep blue or red also produced a mild 
patterning, again as a consequence of the PAL 
encoding. The best titling was obtained using 
white text of width 20 characters per line or 
less. Anti-aliased characters also gave 
reasonable results providing the font size was 
sufficiently large. 



One final point worth noting is that the full 
Archimedes screen, even including the screen 
border, is significantly smaller than the 
standard video frame. Although not a problem 
for captioning, this immediately precludes the 
use of this, or any other podule, to overlay the 
whole screen, as one might wish to do in 
certain graphics applications. Notwithstanding, 
if you need a system for overlaying graphics on 
a video source, then this package may well fit 
the bill. But you will need to check whether the 
quality of its output is sufficient for your 
requirements. 

The G2 Genlock podule costs £295.00 +VAT and 
comage, and is supplied by 
G2 Systems. 

5 Mead lane. 

Farnham, 

Surrey GU9 7DY prri 

Tel. (0252) 712525. Mbrf 
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David Spencer puts Clares' Artisan support disc through its paces. 


The Artisan support disc is a utilities disc 
designed to complement and enhance Clares' 
Artisan drawing package. Three features are 
provided: a set of printer drivers, pattern and 
fade editors, and a rolling display system. The 
whole package Is supplied on a single disc, 
complete with a 14 page user guide, for 
£19.95. 

When the support disc is booted, it 
reconfigures the computer to the necessary 
state and displays six colourful icons at the foot 
of a white screen. The filing icon brings up a 
graphical catalogue of the current disc, with the 
display being categorised according to one of 
four types: Directories, Patterns, Fades, and 
Pictures. Clicking on a directory will select that 
directory, while clicking on a file will bad it as 
appropriate. The middle mouse button brings 
up a menu allowing the current drive to be 
changed. 

Clicking on the left hand icon brings up a 
window containing eight options for different 
printer types. The first option displays the 
currently loaded picture on the screen; two 
other options dump the picture in monochrome 
to a Epson FX or RX printer, two provide colour 
dumps to Epson colour printers, such as the 
EX800, two more generate a colour dump on 
an Integrex 132 printer, and the final option 
prints the current palette on an Integrex. Clares 
can supply the high quality paper necessary to 
get best results from the intgrex dumps, I tried 
the printer dumps on an RX8Q and an FX80, 
and both produced adequate results. However, 
as with all dumps, a brand new ribbon is 
helpful, and the pictures obviously lose a lot of 
impact when printed just in black and white. 

Another icon, in the shape of a monitor, 
brings up the fade editor. This allows you to 
determine how, in a sequence of screens, one 
may fade into the next. For example, the new 
picture could appear from the centre outwards, 
or close in from the edges. The fade editor lets 
you design, on a grid, the process by which the 
pictures will fade together. You design the fade 
pattern on a 40 by 32 grid, which represents a 

9d 


quarter of the fade, the editor mirroring this for 
the other corners. 

The next icon is used to invoke the pattern 
editor. This allows you to define patterns on an 
8 by 8 grid, which can either be used in Artisan 
for filling pre-defined areas, or to produce half¬ 
tones on the printer to simulate colour on a 
black and white dump. 

The final icon, a very colourful rainbow, is 
used to change the sixteen mode 12 colours 
used by Artisan. Any colour can be selected 
and changed by dragging red, green and blue 
sliders, just as with the Desktop. Unfortunately, 
the system only maintains one palette, which 
means that as soon as you redefine any 
colours, the screen icons and windows change 
immediately. It would be nice if the software 
stored a copy of the re-defined palette, and 
only used this when a picture was displayed. 

The other major feature of the Artisan 
Support disc is the Display module. This Is a 
relocatable module which, when loaded into the 
computer, provides additional star commands 
for displaying Artisan screens, A single 
command can be used to pause for a pre¬ 
determined length of time, and then fade in a 
new mode 12 picture according to a pre¬ 
selected fade pattern. Commands also exist to 
load in a new set of eight fade patterns, and to 
alter the delay between one picture and the 
next, A useful feature is the ability to cycle 
through each mode 12 screen on a disc, using 
each fade pattern in turn. 

In conclusion, this product provides a very 
useful addition to Artisan, in particular, the 
primer dumps and the display system are very 
welcome. I can fully recommend this package. 

m 


[1 Product 

Artisan Support Disc 

1 Supplier 

Clares Micro Supples 


98 Middle wich Road, 


North wteh,Cheshire CW9 70A 


Tef [0606)48511 

Price 

119 95 me VAT 
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by Lee Calcraft 


This month: more on the condition mnemonics, implementing FOR-NEXT loops, and a 

word-search utility. 


One of the many powerful features of ARM 
assembler is that any ARM instruction may be 
rendered conditional by appending a two-letter 
condition mnemonic to the instruction. Thus 
while: 

ADD R0,R1,R2 

will add the contents of register R2 to R1 and 
place the result in RO, the following: 

ADDCS RO,Rl,R2 

will perform the operation only if the carry flag 
is set. 

The accompanying table gives the complete 
set of condition mnemonics. It includes two 
which are largely redundant: AL (always) and 
NV (never). The first need not be used because 
if no condition mnemonic is supplied, AL is 
assumed, and the second is of little use since it 
simply means that the instruction which it 
accompanies will never be performed. 


As you can see, the list has been split into 
three parts. The codes in the second and third 
parts are directly equivalent to each other, 
except that the former apply where unsigned 
integers are in use, and the latter where the 
signed integer convention holds. Using this 


convention, known as two's complement 
representation , the top bit of all 32 bit words is 
taken as the sign bit. If this bit is set, the 
number is treated as a negative one. For 
further details of two's complement 
representation, see Cockerell, ARM Assembly 
Programming, p. 12. 

Thus to branch to the label addrl if the 
value in RO is less than or equal to that in Rl, 
you could use one of the two pairs of 
instructions: 

CMP RO, Rl 
BLS addrl 
or: 

CMP RO, Rl 
BLE addrl 

The first pair would work if the registers RO and 
Rl contained 32 bit positive integers, while the 
second pair would be used where two's 
complement representation was in use. 

Although we have said that the 
condition mnemonics may be used with 
any member of the ARM instruction set, 
we have only considered their use 
following the CMP instruction. Three 
other instructions always affect the 
processor's flags. These are TST (TeST 
bits), TEQ (Test EQuivalence) and CMN 
(CoMpare Negative). More important in 
many respects is the large group of 
instructions which can optionally affect 
the flags. See table 2. The way in which 
the user indicates that flags should be set 
by instructions within this group is to add 
an "S" to the mnemonic. Thus: 

ADD RO,Rl,R2 

will add the contents of register R2 to Rl 
and store the result in RO, without 
altering any of the processor's flags. But 
the instruction: 

ADDS RO,Rl, R2 

will perform the addition and set the N, Z, 
V and C flags according to the result. 

The negative flag N is set if the top bit of 
the result is high (indicating a negative result if 
two's complement representation is in use). 
The overflow flag V is set if there is a signed 
integer overflow. The zero flag Z is set if the 
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ADC Add with Carry 

ADD Add without Carry 

SBC Subtract with CArry 

SUB Subtract without Carry 

RSC Reverse Subtract with Carry 

RSB Reverse Subtract without Carry 

AND bitwise AND 

E3!C bitwise AND NOT 

ORR brtwise OR 

EOR bitwise EOR 

MOV Move 

MVN Move NOT 


Table 2 The Arithmetical and Logical 
instruction group. 

Each member may take an J 'S" suffix 


result of the addition is zero, and the carry flag 
is set if the addition results in a carry, AEI the 
arithmetical instructions in table 2 set these four 
flags in the same way (providing that the 
mnemonic contains the "S" suffix), in the case 
of logical instructions (AND, ORR etc.) N and Z 
are set according to the result, but the carry 
flag is set according to the result of 
supplementary shift operations (to be 
discussed in a future issue), while the overflow 
flag remains unaltered 

Thus the simple AND instruction can now 
take 32 different forms, and might appear in 
any of the following guises: 

AND R0,R1,R2 
ANDS R0,Rl,R2 
ANDNE R0,Rl,R2 
ANDEQS R0,R1,R2 etc. 

And we have still to consider shifted operands 
and different addressing modes of this single 
instruction of the ill-named reduced instruction 
set computer. 

CREATING FOR LOOPS 

You may be relieved to hear that we have 
covered sufficient theory for the moment, and 
can move on to some practical examples. First 
of all we will implement a simple FOR-NEXT 


loop in ARM assembler This is accomplished in 
listing 1 - if you run this program (patiently) it will 
display two execution times on the screen, 
followed by their ratio. The first (around 0.38 
seconds) is that taken by the ARM processor to 
repeatedly assign and multiply two 32 bit 
numbers, and store the result. It performs this 
100,000 times in just 0.38 seconds. A similar 
operation 3s then carried out in Basic, and this 
takes around 40 times as long. 

As well as providing a rough indication of 
the gain in speed of ARM machine code over 
Basic V, the program also illustrates the use of 
the H S" suffix in program loops. The assembler 
program begins on line 100, where it loads the 
contents of RAM at tabfe+8 into register R4. 
This acts as the program loop counter. Lines 
120 to 150 fall within the loop, and constitute 
the multiplication routine. This simply loads two 
numbers in from memory, multiplies them, and 
stores the result back in RAM at line 150, Une 
160 is the important one. Each time the loop is 
executed, it causes 1 to be subtracted from the 
loop counter in register R4. Since the suffix "S" 
is used, the flags are set according to the result. 
Line 170 then causes a branch to the label loop 
until the loop counter contains zero. The routine 
then terminates with the MOV instruction on line 
180, exactly as discussed last month. If you 
forget the "S* in line 160 f the bop will carry on 
for ever. 


Listing 1 

10 REM >2-lARMpg4 
20 REM Timed Multiply 
30 s 

40 MODE 0:DIM space 200 
50 FOR pass=0 TO 1 
60 P%=space 
70 [ 

80 OPT pass*3 
90 .start 

100 LDR R4,table+8 
110 .loop 
120 LDR Rl,table 
130 LDR R2,table+4 
14 0 MUL R0,Rl,R2 
150 STR RO,tablet8 
160 SUBS R4,R4*#1 
170 BNE loop 
180 MOV PC,Rl4 
190 : 

200 .table 











210 EQUDO:EQUDO:EQUDO 
220 ] 

230 NEXT 
240 : 

250 !table=500G:table!4=99 
260 table \ 8=100000 
270 TIME=0 
280 CALL start 

290 T1=TIME/100:PRINT 'Tl? n secs" 

300 : 

310 TIME=Q 

320 FOR A%=1 TO 100000 
330 B%=5QQ0:C£=99 
340 

350 NEXT 

360 T2=TIME/1Q0:PRINT T2;" secs* 

370 PRINT 1 "Speed factor: INT{T2/T1J 

WORD-SEARCHING 

We will further put theory to the test in the 
implementation of a reasonably useful utility. Its 
function is to search RAM for a specified word- 
aligned 32 bit word. When the program Is run it 
requests a start and end address for the 
search. These should be given in hex, though a 
null Return will substitute PAGE for the start 
address and HIMEM for the end address. 
Finally you should supply the 32 bit word to be 
searched for. This may be entered in decimal, 
hex (preceded by "&") or binary (preceded by 
"%")> The search wilt then commence, 
displaying the addresses in hex of all finds. You 
should note that there wifi always be at least 
one find between PAGE and HIMEM. This will 
be the place in RAM where the search word is 
stored by the program. 

The program works as follows. First, RO is 
cleared, since this will be used to indicate 
whether a find has been made or not Then 
registers R1 , R2 and R3 are loaded with the 
start address, end address and search value 
respectively (a more efficient multiple load 
instruction will be covered next month). The 
main program loop then begins at line 140- Line 
150 toads register R4 with the word held in 
RAM at the address given by the contents of 
R1. We are thus using indirect addressing. That 
is to say, R4 is loaded not with R1 but with the 
contents of the RAM pointed to by R1 - hence 
the square brackets around R1. 


The central comparison is made in line 160, 
and if the test word matches the word in RAM, 


then the program branches to out, and Basic 
displays the current contents of R1 1 giving the 
address of the find. If the words do not match, 
R1 is incremented by 4 in line 180. This is the 
loop counter, and the reason that we increment 
by 4 and not 1 is that on the Archimedes, RAM 
is addressed in bytes, but we only want to 
search on 32 bit word boundaries (searching on 
non-aligned boundaries is more involved). 


Line 190 then compares the current address 
with the end address supplied by the user, and 
line 200 branches to loop if the end address 
has not been reached. We have used BLO here 
because we are using unsigned integers for the 
loop count (since all addresses are positive), 

and we 
must exit if 
the loop 
count has 
been 
matched 
or exceed¬ 
ed, If we 
had used 
BNE here, 

then the loop would go on forever in cases 
where the end address was not on a word 
boundary. 


Start address? &> 

End address? & 

Search word ?123456?fl9 
Found at &9aAG 
Found at &CAOQ 


S 


Once the end address has been reached. 
RO is loaded with 255 to indicate this, and the 
routine returns control to Basic. The Basic 
program checks the contents of RO (returned by 
the USR function), and if it does not contain 
255, the start address is incremented, and the 
machine code is called again. In this way, the 
program will display every find in the memory 
range supplied, rather than stopping at the first. 


ntxng 2 

10 REM >2-2ARMpg6 

20 REM Word Search Routine 

30 : 

40 DIM space 200 
50 FOR pass-0 TO 1 
60 F%=space 
70 [ 

80 OPT pass*3 
90 * start 

100 MOV R0,#Q ;Clear R0 

110 LDR Rl!table ;Start addr 
120 LDR R2,table+4 ;End addr 
130 LDR R3 f table+8 ;Value 


RISC User May 1988 


27 








140 .loop 


310 

150 LDR R4 r [Rl] 

;Load next 

320 

160 CMP R3,R4 

;Compare them 

ndary) 

170 BEQ out 

;Match found 

330 

180 ADD Rl,Rl,#4 

increment counter 

340 

190 CMP Rl,R2 

;Count finished? 

350 

200 BLO loop 

;If not then loop 

360 

210 MOV RO,# 2 5 5 

• Else indicate fail 

370 

220 .out 


380 

230 STR Rl,table 

;Store address 

390 

240 MOV PC,R14 

/Return 

400 

250 : 


410 

260 .table 


420 

270 EQUDO;EQUDO:EQUDO 

430 

280 ] 


440 

290 NEXT 


450 

300 : 


Next mo 


(at word bou 


INPUT"Search word ",C$ 
IF A$= fl " A$=STR$"PAGE 
IF B$= n " B$=STR$"HIMEM 
ftable-EVAL("£ "+A$) 
table ! 4-EVAL (" & " +B$) 
table!8=EVAL(C$} 


!table=4+!table 
UNTIL Z 


- (!table} 


cans. 


m 


3D GRAPHICS - Continued from page 9 


1670 LDRB R0,[ Rl 2, # 1 ] 

1680 LDR Rl, [RIO,RO,ASL#2] 

1690 MOV Rl, Rl,ASR#8 
1700 LDR R2,[Rll,R0,ASL#2] 

1710 MOV R2,R2,ASR#8:MOV R0,#5:SWI £45 
1720 LDRB R0, [R12,#2J 
1730 LDR Rl,[R10,RD,ASL#2] 

1740 MOV R1,R1,ASR#8 
1750 LDR R2,[R11,R0,ASL#2] 

1760 MOV R2,R2,ASR#8 :MGV R0,#5:SWI £45 
1770 LDRB R0,[R12,#3J 
1780 LDR Rl, [R10,R0,ASL#2] 

1790 MOV Rl,Rl,ASR#8 
1300 LDR R2, [Rll r R0,ASL#2] 

1810 MOV R2,R2,ASR#8:MOV R0,#5:SWI £45 
1820 LDRB RD,[R12,#0] 

1830 LDR Rl,[R10,RQ,ASL#2] 

1840 MOV R1,R1,ASR#8 

1850 LDR R2, [Rll, RO, ASLI2.J 

1860 MOV R2, R2,ASR#8;MOV RQ,#5:SWI £45 

1870 LDMFD R13E,(R15) 

1880 : 

1890 .face EQUDO 
1900 .faceno EQUD surfs 
1910 .draw 

1920 STMFD R13!,{R14} 

1930 MOV RO,#G:STR R0,face 
1940 .drwlp BL plot:LDR R0,face 
1950 ADD RO,R0 # #1;STR RQ,face 
1960 LDR Rl,faceno: CMP RQ,R1:BCC drwlp 
1970 LDMFD R13!,(R15} 

1980 : 

1990 .recaddr ADR R6,recip:MOV R15,R14 
2000 .recip 


2010 ] 

2020 NEXT 

2030 FOR X%=0 TO 449 

2040 I%=X%*4:1%!sin=SIN(RAD(X%))*&1G0 

2050 NEXT 

2060 FOR X%=1 TO 12799 

2070 I%=recip+X%*4:!I%=200000/X% 

2080 NEXT 
2090 ENDPROC 
2100 ; 

2110 DEFPROCdemo 

2120 !zoff=2560Q 

2130 FOR xrot=0 TO -20 STEP -2 

2140 PROCrotate:WAIT:CLS:CALL draw 

2150 NEXT 

2160 FOR yrot=-90 TO 90 STEP 4 
2170 PROCrotate:WAIT:CLS:CALL draw 
2180 NEXT 

2190 I=INKEY(0):IF 1=32 THEN ENDPROC 
2200 FOR zrot-90 TO 360 STEF 6 
2210 PROCrotate;WAIT:CLS:CALL draw 
2220 NEXT 

2230 I=INKEY(0):IF 1=32 THEN ENDPROC 

2240 FOR X=Q TO 180 STEP 4 

2250 zrot-X+4:yrot=96+X:xrot=-24-X 

2260 PROCrotate 

2270 WAIT:CLS:CALL draw 

2280 NEXT 

2290 REPEAT:yrot+=4:PROCrotate 
2300 WAIT:CLS:CALL draw 
2310 UNTIL INKEY(-99) 

2320 yrot-yrot MOD 360 
2330 ENDPROC 
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Chris Drage enthuses over a piece of educational software whose stunning graphics will 
appeal immensely to children of all ages. 


Probably the best Known educational 
adventure program on the BBC B is Droom 
from Resource. Few educational programs 
enthral 7 to 11 year olds equally as does 
Droom; in fact if has become Resource's best 
seller to primary schools. The willingness with 
which children tackle and persevere with the 
mathematical problems encountered is a real 
credit to Derek Alien, the author of the 
program. Now Droom is available for the 
Archimedes, How does it shape up compared 
with its '8'bif predecessor? 

Droom is based 
around a story an which 
the Princess Armlnda 
has been kidnapped by 
the Dragon Droom and 
her true love Prince 
Henry turned into a 
frog, The children are 
asked to rescue the 
princess. A story book 
provided sets the 
scene. There are two 
interlocking parts to the 
program: the first is the 
story-line which is a rich 
source of inspiration for creative and 
expressive work. The second is a series of 
puzzles and problems. It is upon the solutions 
to these that progress through the adventure 
depends. 

A pleasing feature of Droom is that children 
are not penalised by their mistakes and are not 
sent back to the beginning of the adventure to 
start again. Indeed, they are positively 
encouraged to fry again and to succeed. A 
supplementary puzzle disc is provided in the 
package and children are able to practise the 
type of problems encountered in each chapter 
of the adventure. These include coordinates, 
digital roots, Pelmanism, Tower Of Hanoi, 
pattern sequencing, binary numbers, sliding 
block puzzles, and polygons. 

Not surprisingly, Archimedes Droom 
surpasses the BSC B version in speed. 


slickness and graphics. Although many children 
love the mode 6 graphics of the original 
version, they really go overboard for the 
stunning mode 13 (256 colour), graphics of the 
Arc, It is very slick because it is entirely mouse- 
controlled using the Archimedes' WIMP 
(windows, icon, mouse, pointer) environment. 
The animation is very fast and smooth, giving 
the whole package a very responsive 'feel'. 
Everything in the BBC version is there in the 
Archimedes version but in a more sophisticated 
form. That is not to say that Archimedes Droom 
is more complex or 
difficult- On the contrary 
a computer-based 
adventure could hardly 
have an easier modus 
operand!. 

If I had one small 
criticism however, it is 
in the control of the 'car 1 
that children must 
drive' to various 
locations. On the Arc 
version children find the 
'car f rather awkward to 
park at each house. A 
small point but rather frustrating to those not 
familiar with the Archimedes version. However, 
I am pleased to see that in common with Clares 
Micro Supplies, Resource provide an auto 
configuration routine on their Droom disc. This 
automatically resets your machine to its original 
status on exit from the program. 

Droom has enjoyed enormous popularity in 
schools for two years now. The Archimedes 
version will appeal to Archimedes owners 
everywhere who have children. Even at home 
Droom will provide your youngster(s) with hours 
of fun and puzzlement. Four colourful screens 
from Droom are also on this month s disc. 

program Archimedes Droom 

Supplier Resource 

E*efer Road, 

Off Coventry Grove, 

Doncaster DN2 4PY 
£ 18.95 
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VDU PLANNING SHEET GENERATOR 


by Lee Colcraft 



This short program will create a screen planning sheet to assist Archimedes 

graphics design. 


The Archimedes can produce some pretty 
stunning graphics, but in most cases the 
programmer must carefully plan the screen 
layout to achieve the best effects. The program 
presented here uses the Archimedes" built in 
screen dump to produce a screen planning 
sheet, complete with graphics grid and 
character position markings. 

To make use of the program, type It in and 
run it. You should see a grid similar to that in 
the illustration. If you are happy with it, press 
the space bar, and it will be dumped out to your 
printer The command which performs this task 
appears in line 120. Alter this to HardcopyMX 
or RX as appropriate, or to *ScreenSave to 
save the screen to disc for later dumping. 



When you come to use the planning sheet, 
remember that the graphics area extends right 
to the edges of the grid. The character 
positions given are for the common 80 column 
modes such as 0, 12 and 15 which have 32 
lines. To improve the quality of the printout you 
can run the program in mode 20 if you wish. 
You will need 160K of screen RAM for this, but 
you will not need a multi sync monitor. To 
achieve this, change the MODE statement in 
line 80 to MODE 20, and reconfigure your 
machine with 

*CON.MOM,1 (*CON,MON.0 to reinstate) 

followed by Ctrl-Break. After running the 
program, ignore the broken display, and press 
the space bar. 


10 

REM 

>VDUPlan5 

20 

REM Program 

VDU Planner 

30 

REM Version 

A 0.5 

40 

REM Author 

Lee Calcraft 

50 

REM RISC User 

May 1988 

60 

REM Program 

Subject to Copyright 

70 



80 

MQDE12 ; OFF : f=■ 

- (MODE=20) 

90 

*ALPHABET BFONT 

100 

PROCgrid 


110 

FROCtext 


120 

IF GET=32 THEN *HARDCOPYFX 1,1,1,0 

130 

END 


140 




150 DEFPRQCgrid 
160 FOR A=0TO1279 STEP 32 
170 MOVE A,0:DRAW A/1023 
18Q : NEXT 

190 FOR A=0 TO 1023 STEP 32 
200 MOVE 0,A:DRAW 1279,A 
210 NEXT 

220 LINE 128,1023,1151,0 

230 LINE 128,0,1151,1023 

240 FOR A=1 TO 9 

250 FOR B=1 TO 7 

260 CIRCLE A*128,B*128,8 

270 NEXT:NEXT:ENDPROC 

280 : 

290 DEFPROCtext 

300 FOR A=0 TO 31 

310 PRINTTAB(0, A+(A+l)* f J;A; 

320 NEXT 

330 FOR A=0 TO 39 STEP 2 
340 PRINTTAB(A*2,0) ;2*A; 

350 NEXT 

360 FOR A=1 TO 9 

370 PRINTTAB(8*A,3l + 32*f);CHRS139;128* 
380 NEXT 

390 VDU5:GCOL 7,0 

400 FOR Y=1 TO 7 

410 MOVE 1188,128*X+12 

420 GCOL 0,0:PRINT STRINGS{6,CHR$255) 

430 MOVE 1200,128*Y+12 

440 GCOL 0,7:PRINTCHR$136;128*Y 

4 50 NEXT:VDU4:ENDPROC 
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ADVERTISING IN 
RISC USER 


ARCHIMEDES GRAPHIC LIBRARY 
THREE DISK SET 
£21.95 inc VAT andp&p 


RISC User has the largest circulation of 
any magazine devoted to the Archimedes. 
In fact, we believe over 50% of Archimedes 
owners are regular readers. 

RISC User is therefore the ideal medium 
for advertising all products for the 
Archimedes to a discerning and committed 
readership. With six issues of RISC User 
successfully complete we can now offer 
advertising space at attractive rates. 

Tb find out more, contact 

Winncb* TuftiH-n- 
on f mm 


BEEB TO ARCHIMEDES DATA LEAD 
INCLUDING SOFTWARE 
£14.95 inc VAT and p&p 


51/4 40/80 DISC DRIVE COMPLETE WITH 
ARCHIMEDES INTERFACE 
£129.95 incVAT and p&p 


You may pay by Access and Visa 
Educational Orders Welcome. 


May 1968 

The monthly magazine disc contains all the programs from the magazine together with additions! 
items from a variety of sources. Highlights this month include: 


EAST DISC COP)I P 

This utility is particularly useful on 
single drive systems for fast and 
efficient copying of files and 
directories, and aiso offers sub¬ 
stantial improvements on dual 
drive systems as well. 


T£> GRAPHICS 

A part machine code program 
demonstrating the principles of hidden-line 
removal when 
displaying 3D objects, 


WIN now ON the; 
AnCHVJVIEDFS 

A complete worthing program 
incorporating this month s 
additional window. 


AP this plus two more 
delightful Visuals and two 
complete demo programs 
from our series on ARM 
assembler. 


Install this module on your 
system tor fast access to 
Twin at all times. 


Use this utility to take all the worries 
out of re-configuring your 
Archimedes, and it can restore the 
original settings as well. 


ADDITION At ITEMS 


^ Mi :?f/ ; p ; MODULE - The latest version of this bug-fix from Acorn. 

TD m JiMAHOI 1 - All the remaining screen and driving software to install this stunning animation from 
Acom (requires last month's disc as well). Full Instructions are included. 

4 DROOM - Resource, the suppliers of Droom reviewed in this issue, have kindly supplied us with four 
demo screens for inclusion on this disc, in our opinion, the graphics are quite outstanding. 
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Communications Software tor Acorn Archimedes computers 
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/ rchimedes 


5.25 Disk Interface. 


Fit a 5.25 Drive to your Machine the safe and easy way using our 
NEW DISK INTERFACE 


♦ Available Now 

♦ No Soldering 

♦ Supports 4 Drives 

♦ Low Power Consumption 


♦ Fully Buffered 

♦ Easy to Fit 

♦ All Cables Supplied 

♦ Full Instructions 


In Stock Now and Despatched the same day on receipt of your 
Cheque / Postal Order for £27-95 inc P&P. 


30 Hadley Close, Netherton, Dudley, West Mids. DY2 9JX 

Tel: (0384) 633142 










A MODULE FOR TWIN 

by Nic Van Someren 


Acorn s extremely useful Twin editor is supplied as a non-relocatable piece of code. This 
short program will modularise it, with a number of attendant advantages. 


The main inconvenience of Twin's non- 
module status is that every time you call ft, it 
must be loaded from disc. This causes delays 
while loading takes place, and means that you 
must always have your Twin disc handy. This 
short piece of code solves the problem. Just 
type it In and save it away, and make sure that 
Twin is present in the Library directory of your 
disc. When you run the program, it will create a 
relocatable module on disc called TwinMod. 
Now in your Boot file, just place the instruction 
ARMLOAD TwinMod, to load in the module at 
the start of the day, and whenever you type 
TWIN from Basic or *TW1N, Twin wifi instantly 
appear. The module works by very rapidly 
downloading Twin from the RMA whenever it is 
called (it is not possible to make it run from the 
RMA). This means that once the module has 
been created, the original Twin file is no longer 
needed. 


NOTE: You should alter line 80 of the program 
to give the address from which you wish Twin 
to run. Remember that Twin takes as 
workspace the area above its own code. The 
vatue given is appropriate if Basic is allocated 
around 300K of workspace. 


10 REM 


>MkTwinMod7 


20 REM Program Twin Module Maker 

30 REM Version A 0.7 

40 REM. Author Nic Van Someren 

50 REM RISC User May 19B8 

60 REM Program Subject to Copyright 


80 position%=£24000 
90 hand%“OPENIN"%. Twin 11 
100 IF hand£=Q ERROR 23113,"There must 
be a copy of Twin in the library" 

110 twinsize%=EXT#hand% 


120 CLQ5E#hand% 

130 DIM code% twins!ze%+&100 
140 FOR pass%=4 TO 7 STEP 3 
150 P%=0;Q£=code% 

160 IOPT pass% 

170 EQUD entry ;Application entry 

130 EQUD 0;EQUD 0;EQUD 0 

190 EQUD title 

200 EQUD helpstring 

210 EQUD helptable 

220 EQUD 0:EQUD OiEQUD 0:EQUD 0 


230 .title 

240 EQUS "TwinlnAModule" 

250 EQUB 0 

260 .helpstring 

270 EQUS "Twin Module" 

280 EQUB 9 

290 EQUS "1.00 (15 Mar 1988)" 

300 EQUB 0 
310 .twinhelp 

320 EQUS "*Twin calls Twin" 

330 EQUB 13: EQUB 10 
340 .twinsyntax 

350 EQUS "Syntax : *Twin E<filename>( 
<filename>]3" 

360 EQUB 0 
370 ALIGN 

380 .helptable ;Qne command only 

390 EQUS "Twin" 

400 EQUB 0 
410 ALIGN 

420 EQUD preentry ;Code for command 

430 EQUD &00050000 ;0 to 5 params 

440 EQUD twinsynlax 

450 EQUD twinhelp 

460 EQUD 0 

470 .preentry 

480 MOV R2,R0 

490 ADR Rl,title 

500 MOV R0,#2 

510 SWT "OS Module" 

520 .entry 
530 LDR R8,thesize 
540 ADR K9,thecode 
550 ADD R8,R8,R9 
560 MOV R10,^position* 

570 .iRoveloop ; Loop to move code 

580 LDMIA R91,{RQ-R7 } ; Read 8 words 

590 STM1A R10 ! ,{R0-R7 } ;Write 8 words 
600 CMP R9,R8 ;Test for end 

610 BCC moveloop 

620 MOV PC,#position% ;Enter Twin 
630 

640 .thesize 

650 EQUD twins!ze% 

660 .thecode 
670 3 
680 NEXT 

690 050.1"LOAD %.TWIN n 45TR$~0% 

700 OSCLl°5AVE TwinMod n fSTRS-codeU' 1 4 
"+STR$- (twinsize%+thecode) 

710 OSCLI” Set Type TwinMod FFA" |®' 
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7ARCH CHEAT MODE 

R Johnson 

If you are a Zarch addict, but stilf find the game a bit too 
taxing, you might be interested to learn that there is a 
cheat mode. Once you have started the game, but before 
taking off, ensure that the sound is turned on and press 
“Q\ and then very quickly press T and V simultaneously. 
The game can then be pfayed normally, except that 
pressing 'O' will select, or deselect, the automatic pilot, 
while pressing V gives you an extra life, and the V key 
refuels your tanks instantly. 

HEEB STYLE BREAK 
C'osbie Fitch 

It would sometimes be nice for the Break key on the 
Archimedes to behave exactly as it does on the other 
BBC computers; in other words the computer should be 
reset when Break is pressed on its own, This is easily 
accomplished by typing ‘FX247 which makes the Break 
key generate a reset whenever it is pressed, regardless of 
whether Shift or Control are pressed at the same time. 

'■ i 'V-/-OKT Disc CONVERSION 
JarTCfc* f l; r lane 

In the review of flrainSoft's Disc Conversion package in 
RISC User Vol.1 Issue 3 it was stated that it does not 
work correctly with the new Arthur 1.2 operating system. 
However, the current version of the software will work as 
Jong as Acorn’s module fixing the serial bug is installed 
first. This module was included on the disc for RISC User 
VoU Issue 4, and an improved version is included on this 
month’s disc. Alternatively, the module can be obtained 
from Customer Services at Acorn in exchange for a blank 
disc, 

DELETE KEY 
CrOSbte Fitcn 

This short but clever routine makes the backspace key 
generate a delete character ■ very useful if you normally 
use a computer where backspace is used for delete. The 
way in which the program works is also quite interesting. 
When run, the Basic program assembles a short piece of 
machine code and saves this to disc under the name 
BStoDEL. This machine code is given the file type 


transient which means that if it is ‘RUN, it will load and | 
execute in the RMA workspace. When executed, the code 
claims some more space in the RMA area, copies a short 
routine into this space, points the buffer insert vector to 
this routine, and then exits. Now, each time a character is 
entered into the keyboard buffer, the new routine checks 
to see if ft is a backspace (ASCII code 8), and if it is, 1 
translates it to a delete (ASCII code 127). 

Once the code is assembled and saved, it can be installed 
at any time with ‘BStoDEL, and will remain in the machine 
until it is reset. This routine has the effect of preventing 
ControMH from producing a backspace, but if desired, the 
command *KEY13|H can be used to make the Insert key 
generate a backspace instead. 

10 DIM code* 100 
20 SP=13;LINK=14 
30 FOR pass%=4T07STEP3 
40 P%=0:G*=code* 

50 [OPT pass* 

60 STMFD $P !,{R1-R3J 
70 MOV R0,ff 6:MOV R3,#16 
SO SWI "XOS_Module" 

90 BVS exit 
100 ADR RQ,BStoDEL 
110 .copy 
120 SUBS R3,R3,if4 
130 LDRPL Rl,[RQ,R31 
140 STRPL Rl,[R2,R3] 

150 BPL copy 

160 MOV RO,#£14;MOV Rl,R2:MOV R2,#Q 
170 SWT "XOSJOlaim" 

1 BO .exit 

190 LDMFD SP !,{Rl-R3} 

200 MOV PC,LINK 
210 I 

220 .BStoDEL 
230 TEQ RG,#8 
240 TEQEQ Rl, if 0 
250 MQVEQ RQ,#127 
260 MOVS PC,LINK 
270 ] 

280 NEXT 

290 SYS ,f OS_File" 1 10, "BStoDEL" 1 , £TTCj, code*, O* 
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CHANGING THE PALETTE 
□avid Spencer 

You may not be aware that the VDU 19 command to alter 
the colour palette can also be used to create new flashing 
colours, as well as setting the border. The basic syntax of 
the command is VDU IS^pT^b, The value of ’p' defines 
exactly what the command does. 



back-up, the EXEC fife checks the error number to see if 
the BACKUP directory was found. If not, it creates one, 
and calls itself again to save the program. 

*1 >PB 

* f Program Backup 

VDU21 

Z 

PIPAGE 

REPEAT F*+-1:C%=?P*:UNTIL C%=ASC< B >") OF 
F%>FAGE+2G 

IF e%OASCr> ,T > VDU 6: P. TAB (10) 11 * * * File 
name not found***":VDU7,21:OS.( n FX12 
5 11 ) : VDU6 
*FXl5 f 1 

S$“ ,r : 1. Backup* " + $ (P%+1) 

VDU6;P,TAB(10)"SAVING ";S$;VDU21 
SAVE SS 

IF ERR-6779S VDU6:P."Creating new direct 
ory"iVDU21:OS* ("CDIR:1 *$♦BACKUP"}:OS. 

("PB”) 

VDU6;IF ERR<>4 THEN REPORT:VDU7,13,10 


For example: 

VDU 19, l f 1.7, 100, 0,100,19,1,18,128,128, 50 
will give you a mode 0 foreground that flashes between 
lilac and pate yellow. Incidentally, changing the palette 
was covered in more detail on page £4 of RISC User 
Vol.i Issue 2. 

>- yjttAr>C sack'if 

The EXEC file listed below, when saved under the name 
PB in the Library directory of your disc, will implement a 
program back-up facility. Each time you type: 

* PB 

it will search the Basic program currently in RAM for a 
filename stored in the first line of the program in the usual 
format (i.e. REM filename). It will then save the file to 
the directory $, BACK UP in drive 1, using the name found, 
if the disc does not contain such a directory, it will create 
one first. 

Because it is not possible to use the ON-ERROR 
statement in an EXEC file, the file creates a syntax error 
so as to set ERR-4 at the start (remember that errors do 
not stop the execution of EXEC fifes, and the error is 
invisible because of the VDU21). After the attempted 


SNGU 0*11 SAVE 

D »"•;£ Spencer *, Or^.- hLn 

It is often desirable to save a machine code program or a 
block of memory [i,e. using ‘SAVE), and to date stamp it 
and set a file type at the same time. This can be done as 
a two stage operation, by first using ‘SAVE, and then 
using *SETTYPE to set the file type, and also date stamp 
the file. There is, however, a better way of doing this on 
Arthur 1.2, which involves just a single operation. The new 
method uses the Arthur call OS_File, with an option not 
implemented on earlier versions of Arthur. The call to use 
is: 

SYS "OS_Fi le \ 10, <f i 1e-name>, 

<file-type>,,<start>,<end> 

Obviously, <file-name> should be replaced by a string, 
and <file-type>, <start> and <end> should be specified as 
numbers (decimal, unless preceded by an &}. The 10 
specifies the particular OS_File operation which in this 
case is "Save and date stamp". It is important not to forget 
the double comma before the start address. For an 
example of this call in use, take a look at Crosbie Fitch's 
delete key routine given earlier. 
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